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SUMMARY 


INTERACTIVE  COMMUNICATION  SYSTEMS  MODELING  STUDY 

Traditionally,  in  assessing  the  performance  of  digital  communications 
systems,  designers  usually  resort  to  highly  specialized  studies  addressing 
the  immediate  problems  at  hand.  In  many  cases,  the  design  approach  places 
heavy  reliance  on  "textbooks"  and  other  published  materials.  Frequently 
much  previous  work,  because  of  lack  of  knowledge  or  the  difficulty  in 
information  retrieval,  is  duplicated.  Moreover,  it  is  frequently 
impractical  if  not  impossible  to  completely  characterize  digital  communlca 
tlon  systems  using  this  approach.  Although  computers  have  been  used  to 
advantage,  their  capabilities  have  not  been  exploited  to  maximum  benefit. 
Put  simply,  the  analysis  and  design  approach  for  the  technology  of 
communications  has  not  kept  pace  with  the  technology  of  computers  and 
displays  and  their  capability  for  general  assessment  of  digital  communica- 
tions systems,  particularly  in  the  area  of  high  speed  processing  and  inter 
active  graphic  displays. 

This  study  examined  the  possibility  of  implementing  a highly  flexible 
computer  program  for  modeling  and  simulating  digital  communication  systems 
The  effort  began  with  a review  of  the  literature  describing  previous 
efforts  in  this  area.  Several  conclusions  were  drawn  from  this  survey; 

1.  Virtually  all  of  the  analysis  programs  currently  available  lack 
the  interactive  capability, 

2.  A high  degree  of  program  interactivity  is  desirable  since  it 
allows  the  user  to  carry  out  his  analysis  quickly, 

3.  An  effective  trade-off  between  computation  time  and  the 
accuracy  of  the  computed  results  can  be  realized  by  incorporat- 
ing a multilevel  modeling  structure  into  the  program,  and 

4.  The  commonly  used  Monte  Carlo  simulation  approach  is  probably 
the  most  general  analysis  scheme  available,  but  it  is  also  one 
of  the  most  time  consuming,  and  therefore  alternate  procedures 
should  be  developed. 


Each  of  the  above  conclusions  served  as  a basis  for  continued 
examination  of  the  means  of  Implementing  a general  modeling  and  simula- 
tion program.  Modeling  techniques  were  explored,  and  the  more  useful 
ones  are  described  In  Section  2.2  of  the  Final  Report.  Basically  the 
recommended  approaches  result  In  time-domain  descriptions  of  the  inputs 
and  outputs  of  the  system  components. 

A variety  of  simulation  methods  were  studied,  and  the  ones  most 
useful  for  a program  of  the  present  type  are  discussed  in  Section  2.1. 

The  practicality  of  each  of  the  major  program  concepts,  interactivity, 
multilevel  analysis,  and  block  diagram  structuring,  was  demonstrated  in 
a small  software  program  developed  as  a part  of  this  — This  program 
was  developed  for  a GT-44  graphics  terminal  at  DICRP. 

It  has  been  recoimsended  that  the  basic  concepts  dew  .,ed  as  a part 
of  this  study  be  used  as  guidelines  in  the  development  of  large  scale 

simulation  program  for  the  DICEF  facility  at  RADC.  Such  a program  would 
employ  a graphics  terminal  such  as  the  GT-44  serving  as  an  intelligent 
satellite  processor  for  a large  host  computer  such  as  the  C-8500  which 
Is  currently  available  at  RADC. 
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EVALUATION 


This  effort  was  established  under  RADC  Laboratory  Director's  Fund 
Program  to  initiate  the  development  of  a general  Interactive  computerized 
simulation  model  for  the  analysis  and  design  of  digital  communication  trans- 
mission systems.  The  tasks  were  to  survey  the  existing  state-of-the-art  in 
communication  systems  simulation  modeling;  to  formulate  an  interactive  modeling/ 
simulation  concept;  to  determine  the  essential  characteristics  of  the  model; 
to  define  a flexible  modeling  structure  and  simulation  process;  and  to  demon- 
strate on  an  "intelligent"  graphics  display  system  (DEC  GT-44)  a small  scale 
modeling  capability  developed  after  the  conceptual  model.  These  tasks  were 
successfully  accomplished,  and  the  demonstrated  results  substantiate  the 
practicality  of  a full  scale  Implementation.  This  report  provides  much  of 
the  pertinent  baseline  information  necessary  for  future  development  and  imple- 
mentation of  the  simulation  model.  This  development  program  fits  very  well 
into  the  Digital  Communications  Simulation  and  Experimentation  portion  of 
TPO  Number  IV,  "Communications  for  Command  and  Control." 

Follow-on  development  efforts  are  being  planned  for  the  FY-77 — FY-80 
period.  The  information  derived  from  this  report  will  be  used  for  the  pre- 
paration of  work  statements  and  also  as  general  guideline  for  future  efforts. 

7 e C-  ^ C-*- V 

PETER  K.  LEONG 
Project  Engineer 


X 


LIST  OF  TABLES 


Page 

SECTION  2 

2-1  Performance  Measures  2-35 

2-2  Number  of  Samples  Required  In  A Monte 

Carlo  Study 2-39 

SECTION  4 

4-1  Typical  System  Parameters  and  Performance  Measures  ....  4-2 

4-2  Features  and  Options  For  Communication  Systems  4-4 

4- 3  Channel  and  Frequency  Combinations  4-10 

SECTION  5 

5- 1  Algebraic,  Trigonometric,  and  Function  Operations  ....  5-4 

5-2  Logical  Operators  5-5 

5-3  Active  and  Passive  Network  Functions  5-6 

5-4  Passive  Network  Functions  5-7 

5- 5  Passive  Network  Functions  5-8 

SECTION  6 

6- 1  Functions  of  the  Mathematical  Library  

APPENDIX  A 

A-1  Subroutines  Used  in  MIDACS  Demonstration  Package  A-3 

A-2  Subroutine  Directory  By  File  Name  (On  DECpack  DISK)  . . . A-4 

A-3  Display  Files A-9 


lx 


1.  INTRODUCTION 


1.1  Background 

The  Digital  Coimnunlcatlons  Experimental  Facility  (DICEF)  at  Rome 
Air  Development  Center  (RADC)  is  dedicated  to  extensive  experimentation 
on  digital  comnunlcat Ion  systems.  It  is  capable  of  performing  test  and 
evaluation  on  developmental,  state-of-the-art  communication  equipments 
over  real  or  simulated  channels.  To  augment  the  capability  of  DICEF,  a 
Collins  C8500  Data  Processing  Computer  had  been  acquired  by  RADC  and 
will  be  Installed  in  the  near  future  in  the  DICEF.  However,  to  effectively 
and  efficiently  utilize  the  processing  capability  of  the  Collins  C8500 
Computer  in  the  modeling,  simulation,  design,  analysis,  and  synthesis  of 
communication  systems  and  their  components,  it  is  necessary  that  appropriate 
interactive  graphics  capability  be  developed  to  effect  responsive  man- 
computer  interactions.  This  effort  is  therefore  Intended  as  the  initial 
development  for  the  required  concepts  and  approaches. 

Traditionally,  in  assessing  the  performance  of  digital  communications 
systems,  designers  usually  resort  to  highly  specialized  studies  address- 
ing the  immediate  problems  at  hand.  In  most  cases,  the  design  approach 
places  heavy  reliance  on  analytical  methods  specially  developed  for 
the  problem  of  interest.  Frequently  much  previous  work,  because  of 
lack  of  knowledge  or  the  difficulty  in  Information  retrieval,  is 
duplicated.  Moreover,  it  is  frequently  impractical  if  not  impossible  to 
completely  characterize  digital  communication  systems  using  this  approach. 
Although  computers  have  been  used  to  advantage,  their  capabilities  have 
not  been  exploited  to  maximum  benefit.  Put  simply,  the  analysis  and 
design  approach  for  the  technology  of  communications  has  not  kept  pace 
with  the  technology  of  computers  and  displays  and  their  capability  for 
general  assessment  of  digital  communications  systems,  particularly  in  the 
area  of  high  speed  processing  and  interactive  graphic  displays. 

Therefore,  a need  exists  to  formulate  interactive  modeling  concepts 
with  more  flexibility  and  greater  accuracy.  The  concept  that  can  be 
envisaged  for  communications  systems  modeling  is  closely  paralleled  with 
the  recent  widespread  use  of  specialized  minicomputers  and  desk  top 
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calculators.  For  example,  computation  of  trigonometric  functions  Is  to 
a mathematician  as  computation  of  BER  is  to  a coinnunicatlons  analyst. 

It  Is  apparent,  of  course,  that  the  level  of  technology  required  for 
complete  systems  analysis  and  synthesis  far  exceeds  that  which  Is  re- 
quired for  simple  mathematical  computation. 

Thus,  the  method  of  approach  In  this  effort  was  to  formulate 
concepts  for  the  Interactive  Communications  System  Modeling  Study  that 
will  provide  answers  in  a meaningful  manner  for  a wide  range  of  digital 
communication  systems  configurations.  The  general  approach  Is  (1)  to 
identify  Input-output  characteristics  of  the  design  and  modeling  problem 
Including  Indices  of  performance,  (2)  based  on  the  input-output  structure 
required,  to  determine  the  levels  of  modeling  needed,  (3)  to  formulate 
modeling  concepts  at  the  system  and  function  level,  (4)  to  match  up  the 
programming  structure  with  the  modeling  concepts,  and  (5)  to  structure 
the  modeling  concept  for  Interactive  operation. 

1.2  Scope  and  Objectives 

The  objective  of  this  effort  under  Contract  No.  F30602-75-C-0247 
was  to  Initiate  the  development  of  an  Interactive  communications  system 
modeling  capability  for  the  Digital  Communications  Experimental  Facility 
at  Rome  Air  Development  Center.  The  scope  of  the  effort  Included  a 
one  year  effort  (1)  to  formulate  modeling  concepts  for  digital  communica- 
tions systems  and  to  structure  these  concepts  for  Interactive  computer 
graphics,  (2)  to  specify  a flexible  hierarchical  computer  programming 
structure  to  implement  the  modeling  concepts  and  (3)  to  demonstrate  the 
validity  of  the  modeling  programming  structure  on  an  RADC  interactive 
graphic  display  system. 

This  report  describes  the  development  efforts  undertaken  to  achieve 
the  stated  objectives.  The  formulated  concept  Is  described  and  specific 
recommendations  are  made.  Demonstration  software  to  Illustrate  the 
modeling  concept  Is  documented. 
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1.3  Report  Organization 

This  report  Is  organized  Into  eight  chapters  with  appendices  and 
a bibliography  including  this  Introductory  chapter.  Chapter  2 reviews 
the  formulated  concept  and  Chapter  3 presents  the  programning  structure. 
Chapter  4 describes  the  recomnended  system  library;  Chapter  5 describes 
the  recommended  function  library;  and  Chapter  6 discusses  hardware 
requirements.  Software  used  to  prepare  a working  demonstration  is 
described  in  Chapter  7,  and  specific  recommendations  for  further 
development  are  made  in  Chapter  8. 

As  a part  of  this  effort  an  Interim  Technical  Report  was  prepared. 

Key  aspects  of  that  report  are  summarized  in  this  final  report;  however, 
reference  to  the  Interim  Report  will  prove  useful  for  many  details. 

1.4  Methodology 

The  approach  which  was  followed  toward  the  development  of  the 
interactive  communication  analysis  model  consisted  of  the  following 
steps:  (1)  survey  of  the  modeling  literature  to  determine  the  extent  of 

usefulness  of  previous  approaches;  (2)  development  and  formulation  of  a 
modeling  concept  which  has  sufficient  scope  to  accommodate  the  objectives 
of  this  effort;  (3)  investigation  of  the  merits  of  mathematical  approaches 
which  will  lead  to  a tractable  and  efficient  model;  (4)  development  and 
formulation  of  an  interactive  graphics  structure  which  will  permit  inter- 
active exercise  of  the  model;  (5)  development  and  exercise  of  a demonstra- 
tion interactive  model  to  illustrate  the  formulated  concepts;  and  (6) 
specification  of  a hierarchical  programming  structure. 

For  convenience  in  discussions  and  for  brevity  the  interactive 
analysis  model  formulated  under  this  effort  will  be  referred  to  as  MIDACS 
for  Model  for  Interactive  Design  and  Analysis  of  Communication  Systems. 
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2.  SUMMARY  OF  CONCEPT  FORMULATION 


2,1  General  Consider at long 

The  first  step  In  developing  a simulation  model  such  as  MIDACS 
Is  the  Identification  of  Important  modeling  characteristics  required. 
Consideration  of  the  anticipated  use  of  MIDACS  has  resulted  in  the 
Identification  of  five  Important  characteristics: 

e Applicability 

e Speed 

s Accuracy 

e Ease  Of  Use 

e Expandability 

The  simulation  model  should  be  applicable  to  a broad  range  of 
problems.  This  means  that  It  should  have  the  ability  to  represent 
the  operation  of  a large  variety  of  communication  systems.  Indicative 
of  the  desired  range  of  application  are  the  two  examples  in  Figure  2-1. 

An  FSK  transmitter  communicating  with  a discriminator  receiver  over  a 
cable  channel  Is  shown  In  Figure  2-la,  and  a four  phase  FSK  (QFSK) 
transmitter  linked  to  a noisy  coherent  detection  receiver  by  means  of 
a tropo  channel  Is  Illustrated  In  Figure  2-lb.  Notice  that  In  these 
two  systems  there  Is  diversity  In  modulation  form,  t}rpe  of  channel, 
and  type  of  receiving  circuitry;  however,  structural  flexibility  should 
not  be  viewed  as  being  sufficient  to  Insure  broad  applicability.  It  Is 
also  necessary  to  have  the  ability  to  specify  or  evaluate  a wide  range 
of  system  parameters  Including  such  things  as  data  rate,  signal  attenuation, 
noise  level,  probability  of  detection  error,  slgnal-to-nolse  ratio, 
channel  bandwidth,  etc. 

The  Interest  In  a computer-supported  simulation  Is  based  on  the 
premise  that  a computer-oriented  analysis  will  proceed  more  quickly  and 
accurately  than  a similar  analysis  carried  out  manually.  The  validity 
of  such  an  assumption  Is  In  part  dependent  upon  the  speed  with  which  one 
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can  setup  a problem  using  the  computer  simulation.  For  the  communications 
analyst,  problem  setup  will  consist  of  structuring  a block  diagram  of 
the  system  of  interest  and  assigning  numerical  values  to  the  characteriz- 
ing parameters.  A typical  problem  setup  is  presented  in  Figure  2-2; 
included  are  both  the  system  block  diagram  and  a list  of  parameters  which 
the  analyst  might  use  in  characterizing  the  operation  of  this  system. 

For  example,  the  analyst  may  wish  to  examine  the  effect  of  data  rate 
on  the  energy-to-nolse  ratio  at  the  output  of  the  low-pass  filter. 

An  Important  part  of  the  MIDACS  concept  is  that  the  problem  setup 
will  be  carried  out  both  Interactively  and  graphically.  If  the  programnlng 
for  the  interactive  graphics  is  efficient,  the  user  will  be  able  to 
proceed  quickly  to  the  evaluation/calculation  phase  of  the  simulation. 

It  is  the  calculation  phase  that  will  tend  to  have  the  greatest  Impact 
on  the  perceived  speed  of  analysis  for  two  reasons.  First,  in  many 
complex  simulations  the  number  of  computations  to  be  performed  will  be 
Imnense  and  will  therefore  require  an  appreciable  amount  of  time. 

Second,  it  is  anticipated  that  during  the  computation  phase  the  user/ 
analyst  will  not  be  actively  involved  in  the  simulation,  and  this  effect 
alone  will  tend  to  accelerate  his  sense  of  elapsed  time. 

The  matter  of  simulation  accuracy  is  difficult  to  assess,  but 
three  major  components  of  accuracy  may  be  Identified.  The  first  and 
most  fundamental  aspect  of  simulation  accuracy  is  tied  to  the  relation- 
ship between  the  system  being  simulated  and  the  model  chosen  to  represent 
that  system.  Consider  the  amplifier  shown  in  Figure  2-3a.  A representa- 
tion which  an  analyst  might  use  to  simulate  this  amplifier  is  shown  in 
Figure  2-3b.  If  the  actual  amplifier  experiences  inputs  restricted  to 
the  range  (-a,  a),  then  the  strictly  linear  representation  is  an  accurate 
model  for  a simulation  exercise;  but  if  the  real  amplifier  has  Inputs  in 
the  range  (-b,  b) , then  the  model  of  Figure  2-3b  is  of  questionable  validity. 
It  is  important  to  realize  that  only  the  analyst  knows  the  relationship 
between  the  simulation  structure  and  the  physical  system  that  the  structure 
represents.  The  assessment  of  accuracy  for  this  aspect  of  simulation 
must  be  made  by  the  user. 
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Figure  2-2.  Problem  Set  Up  Process  for  A Computer  Simulation. 


The  next  aspect  of  accuracy  concerns  the  relationship  between  an 
Ideal  model  element  and  the  mathematical  representation  of  that  element. 
Assume  that  It  Is  desired  to  model  the  voltage-current  relationship 
of  a device  known  to  exhibit  the  property 

I - e''  -1  (2-1) 

where  v Is  the  applied  voltage  and  I Is  the  terminal  current.  For 
computation,  I may  be  evaluated  by  means  of  a series  expansion  In  v. 

For  example,  [1,  page  985] 

2 3 

e''-l  + v+  |y  + ^+  . . . (2-2) 


Thus 


I 


(2-3) 


To  expedite  computation.  It  Is  customary  to  truncate  Infinite  series 
such  as  the  one  In  (2-3).  The  number  of  terms  retained  In  the  series 
representation  has  a definite  Impact  on  the  accuracy  of  the  mathematical 
model.  This  Impact  Is  demonstrated  In  Figure  2-4  where  the  actual 
terminal  current  I Is  compared  with  a one  term  approximation  I^,  and  a 
two  term  approximation  l2> 

The  ability  of  a mathematical  model  to  describe  accurately  the 
behavior  of  the  Ideal  system  element  Is  definitely  under  the  control  of 
the  mathematical  approach  used  In  the  simulation  model.  However,  It  is 
possible  to  exercise  a high  degree  of  control  over  the  accuracy  of  re- 
presentation of  a single  element,  but  it  should  be  realized  that  In  any 
realistic  system  model  there  will  be  many  elements  with  the  accuracy 
of  each  of  the  elements  contributing  to  the  output.  In  general,  this 
overall  accuracy  Is  difficult  to  evaluate. 

The  third  aspect  of  accuracy  Is  related  to  the  techniques  employed 
In  software  development  for  the  simulation  model.  When  calculations 
are  carried  out  manually,  the  analyst  rarely  has  to  worry  about  the  order 
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APPLIED  VOLTAGE 


Figure  2-4.  Mathematical  Approximations  Used  to 
Model  A Voltage-Current  Relationship. 
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In  which  the  basic  operations  such  as  multiplication  and  addition  are 
performed  since  the  commutative  and  distributive  principles  apply. 

For  the  computer  these  principles  are  not  always  applicable  and  can 
thus  influence  the  accuracy  of  calculated  results.  Two  of  the  more 
serious  contributors  to  this  problem  are  truncation  and  round-off  errors 
which  result  from  the  finite  word  length  of  all  computers.  As  an 
example,  consider  the  following: 


X 


0.5  ^ g_^ 

10^  10^  10^  • 


(2-4) 


X - 0.0000021. 


(2-5) 


If  this  calculation  were  carried  out  in  a computer  which  has  seven 
digits  of  accuracy,  then 


0.5  0.7  0.9 

10^  10^  10^ 


0.000000, 


(2-6) 


or 


X - <|0-5  + 0-2  + 0.9)  _ 0.000002.  (2-8) 

10® 

Obviously  the  computational  accuracy  depends  not  only  upon  the 
computer  word  length  but  also  upon  the  sequence  in  which  the  operations 
are  carried  out.  This  aspect  of  simulation  accuracy  is  somewhat  under 
the  control  of  the  programner,  and  steps  may  be  taken  by  the  programmer 
to  minimize  errors  arising  in  this  manner. 

Experience  has  shown  that  simulation  models  which  require  a highly- 
detailed  knowledge  of  either  computers  or  a simulation  language  find 
little  use.  Since  it  is  desired  that  MIDACS  gain  wide  acceptance, 
by  communication  analysts,  it  is  imperative  that  the  model  be  easy  to  use. 
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Ideally,  the  Inexperienced  analyst  should  be  able  to  exercise  the  model 
with  little  or  no  external  assistance,  and  at  the  same  time  the  experienced 
user  should  not  be  subjected  to  lengthy  or  detailed  descriptions  of 
basic  operations.  Thus,  the  program  should  be  highly  Interactive,  but 
It  should  be  flexible  In  the  amount  of  descriptive  detail  provided 
to  the  user. 

Since  any  simulation  model  can  contain  only  a finite  library  of 
simulation  elements,  and  since  It  Is  Impossible  to  anticipate  every 
structural  element  desired  by  future  program  users.  It  Is  desirable  to 
structure  the  program  so  that  It  can  be  expanded  easily  by  the  addition 
of  new  or  alternate  simulation  elements.  This  approach  allows  the 
user  to  create  representations  which  may  be  peculiar  to  his  own  Interests, 
and  It  also  allows  the  rapid  addition  of  new  coninunlcatlons  components 
to  the  simulation  element  library. 

Five  Important  modeling  characteristics  have  been  Identified  and 
discussed.  It  Is  now  necessary  to  Indicate  how  each  of  those  characteris- 
tics may  be  Incorporated  Into  a modeling  structure. 

In  the  development  of  simulation  concepts  It  has  been  assumed  that 
a system  model  will  be  structured  by  the  analyst  from  a set  of  models  of 
basic  digital  communication  functions.  Such  a structure  Is  Indicated  In 
the  example  of  Figure  2-2.  For  a modeling  structure  of  this  type  three 
things  must  be  done  to  Insure  that  the  overall  simulation  technique  Is 
broadly  applicable.  First,  the  library  of  models  of  basic  communication 
functions  must  be  extensive.  This  means  that  not  only  should  there  be  a 
wide  variety  of  different  functions  In  the  library,  but  there  should  also 
be  a variety  of  Implementations  of  the  same  function.  Second,  each  function 
model  should  contain  sufficient  detail  to  allow  specification  by  the 
analyst  of  the  Important  parameters  affecting  functional  performance.  For 
example,  a user  on  Identifying  the  need  for  a low-pass  filter  model  should 
be  able  to  specify  filter  type,  order,  ripple,  bandwidth,  etc.  Third, 
the  program  should  be  capable  of  evaluating  the  different  performance 
parameters  of  greatest  Importance  and  widest  use.  It  should  be  emphasized, 
however,  that  this  does  not  preclude  the  Introduction  of  new  performance 
measures  which  either  facilitate  the  evaluation  process  or  enhance  the 
understanding  of  system  operation. 
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Two  contributors  to  the  time  required  to  perform  a simulation 
have  been  identified:  the  time  required  to  structure  the  slniulatlon 

model  and  the  time  required  to  exercise  the  model  to  obtain  the  desired 
data.  Consider  first  the  problem  of  model  structuring.  Many  of  the 
existing  or  planned  digital  communication  systems  conform  structurally 
to  one  of  a limited  number  of  well-documented  system  models,  and  therefore 
the  design  or  analysis  of  such  systems  involves  only  the  exercise  of  one 
such  common  model  with  parametric  variations.  In  such  instances  time 
may  be  saved  by  providing  the  user  with  a complete  system  model.  The 
system  model  would  describe  a fixed  system  structure  and  would  allow 
parametric  specification  in  the  manner  employed  for  function  models. 

It  is  easy  to  envision  at  least  one  other  situation  in  which  a system 
model  would  be  desirable.  Consider  the  case  where  an  analyst  is  examining 
new  system  structures.  In  the  process  of  doing  so  he  may  wish  to  re- 
examine the  performance  of  a particular  system  several  times.  This 
process  would  be  very  lengthy  if  each  system  exercise  required  a complete 
restructuring  of  the  system  model  from  function  models;  however,  it 
would  proceed  quite  rapidly  if  the  initial  system  structure  could  be 
retained  and  identified  as  a system  model  in  the  simulation  program's 
library. 

The  second  factor  contributing  to  the  speed  of  the  analysis  is 
computation  time.  In  many  instances  complete  analytical  studies  have  been 
done  on  a given  system  structure,  and  therefore,  carrying  out  a true 
simulation  of  such  systems  would  waste  a great  deal  of  time.  The  incor- 
poration of  the  analytical  forms  as  system  level  models  in  the  program 
would  provide  the  analyst  with  the  means  of  obtaining  performance  data 
on  a wide  array  of  the  more  commonly  used  digital  communications  systems. 
For  those  instances  where  an  actual  simulation  is  to  be  performed,  computa- 
tion time  may  be  minimized  by  providing  a multilevel  representation  of 
the  functional  blocks.  The  levels  of  representation  would  correspond 
to  the  amount  of  detail  included  in  the  functional  model,  and  it  is 
assumed  that  the  evaluation  of  a complex  and/or  detailed  representation 
would  require  greater  computation  time  than  would  the  evaluation  of  a 
simpler  representation. 
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It  has  been  observed  that  the  accuracy  of  the  computed  results 
depends  upon  the  structure  of  the  simulation  model,  the  mathematical 
representations  employed  for  the  Individual  functional  elements,  and 
the  computational  tectnlques  employed.  The  degree  to  which  the 
simulation  model  accurately  reflects  the  structure  of  the  physical 
system  being  simulated  must  be  the  responsibility  of  the  analyst. 

No  software  program  can  reliably  anticipate  the  Intent  of  the  user 
In  structural  matters. 

The  concept  of  a multilevel  representation  for  the  functional 
elements  has  been  noted  above  In  the  discussion  of  computational  speed. 

The  relationship  between  computation  time,  accuracy,  and  the  multilevel 
structure  Is  shewn  In  Figure  2-5.  The  lower  bound  of  error,  which  Is 
defined  to  be  the  square  of  the  difference  between  the  calculated  value 
X and  the  true  value  x.  Is  seen  to  decrease  as  the  level  of  representa- 
tion is  Increased.  In  this  context,  level  1 is  the  most  general  and 
level  3 is  the  most  detailed  representation.  Furthermore,  It  should  be 
observed  that  for  a fixed  computation  time  the  higher  level  model  does 
not  assure  a higher  degree  of  accuracy.  The  point  being  made  Is  this: 
accuracy,  speed,  and  computation  time  are  Intricately  interrelated  In 
such  a manner  as  to  preclude  any  a-prlorl  absolute  specification  of  any 
one  characteristic.  Trends,  however,  such  as  those  Indicated  In  Figure  2-5 
are  discernible  and  are  useful  In  the  development  of  program  concepts. 

The  degree  to  which  MIDACS  is  perceived  to  be  easy  to  use  Is  in 
maior  part  dependent  upon  the  user.  A user  with  little  experience  In  the 
use  of  simulation  programs  or  knowledge  of  communication  systems  will  tend 
to  prefer  a program  requiring  little  advanced  knowledge  of  the  program 
details  and  a thorough,  preferably  interactive,  set  of  Instructions.  The 
advanced  user  tends  to  minimize  the  need  for  step-by-step  Instructions 
and  to  emphasize  the  ability  to  quickly  setup  and  analyze  a problem,  the 
ability  to  quickly  and  easily  alter  the  system  structure  or  parameters, 
and  the  ability  to  address  a wide  range  of  problems. 
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The  needs  of  both  types  of  users  can  be  met  by  a single  modeling 
structure  provided  that  the  program  structure  recognizes  the  different 
needs.  An  example  of  an  appropriate  program  structure  is  given  in 
Figure  2-6.  On  starting  the  program,  the  user  is  presented  text 
describing  the  program's  operation  and  how  to  respond  to  questions 
posed  by  the  program.  Next,  the  user  is  asked  if  he  needs  instructions 
on  program  use.  At  this  point  the  advanced  user  may  respond  NO  and 
proceed  directly  to  setup  his  problem.  If  the  answer  is  YES,  the  program 
will  provide  step-by-step  instructions  and  explanations  for  the  user. 

There  are  a variety  of  ways  that  a program  can  be  written  so  that 
future  expansions  or  modifications  can  be  made  easily.  One  of  the 
better  approaches  is  to  modularize  the  program  so  that  each  program 
element  or  operation  is  an  identifiable  entity,  such  as  a subroutine. 

This  step  should  be  supplemented  by  the  development  of  a complete  set 
of  program  documentation  describing  the  interrelations  of  the  various 
program  elements. 

At  this  point,  some  points  of  terminology  should  be  discussed. 

The  simulation  model  that  has  been  described  thus  far  may  in  general 
be  characterized  as  a multilevel  program.  The  program  has  two  levels  of 
modeling  structure:  a system  level  and  a function  level.  The  system 

level  structure  is  fixed  and  is  not  alterable  by  the  user,  but  the 
function  level  structure  is  totally  determined  by  the  analyst  during 
the  problem  setup  phase  of  the  simulation.  Also,  for  many  of  the  models 
there  will  be  two  or  more  representations  of  a given  function  or  system 
representing  two  or  more  levels  of  modeling  complexity.  As  noted 
previously,  the  multilevel  mathematical  representations  constitute  a 
trade-off  between  modeling  detail  and  computation  speed. 

Another  matter  of  terminology  that  should  be  clarified  is  how  the 
models  are  described.  Function  models  present  no  problem  since  the 
function  being  performed  seems  to  be  the  best  model  descriptor,  but  the 
system  models  present  an  entirely  different  situation.  A block  title 
should  be  short,  and  at  the  same  time  it  should  relate  the  most  significant 
characteristics  of  the  block.  Consider  the  structure  presented  in  Figure 
2-7.  A complete  description  of  this  system  would  have  to  identify  in  some 
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Figure  2-6.  Flow  Chart  for  A Highly  Interactive  Programming 
Structure. 
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detail  each  of  Che  blocks  comprising  Che  system,  but  If  a short 
descriptive  label  Is  needed  It  may  be  sufficient  to  identify  only 
that  one  block  chat  has  the  greatest  Impact  on  Che  system  as  a whole. 

Historically,  communications  analysts  have  tended  to  identify 
Che  waveform  modulation  as  the  most  significant  characteristic  of  a 
system.  However,  there  are  alternative  system  descriptors  which 
are  sometimes  used  as  primary  adjectives,  for  example,  "line  of  sight 
microwave",  "tropo  link",  or  "HF  link".  Most  of  the  work  on  MIDACS 
to  this  point  has  used  as  the  primary  system  descriptor  the  waveform 
modulation,  e.g.,  PSK,  QPSK,  FSK,  etc.  Based  on  recent  discussions 
with  RADC  and  DICEF  personnel,  Che  channel  descriptor  may  be  more 
readily  understood  by  MIDACS  users.  The  recommended  modeling  structure 
can  accommodate  either  approach  although  the  detailed  structured 
hierarchy  must  be  adapted  to  the  choosen  approach. 

2.2  Modeling  Concepts 

A model  in  the  engineering  context  is  usually  a set  of  mathematical 
equations  which  describe  some  aspect  of  a physical  entity  which  either 
exists  or  is  in  the  process  of  being  implemented.  This  section  of 
Che  report  will  describe  the  important  characteristics  of  such  models 
and  how  such  models  are  developed. 

Consider  Che  flowchart  presented  in  Figure  2-8.  This  figure 
indicates  that  the  modeling  process  begins  with  the  identification  of 
Che  particular  physical  system  of  interest.  The  next  step  in  the 
process  requires  that  the  analyst  have  sufficient  familiarity  with  Che 
given  system  to  produce  a block  diagram  which  describes  accurately  that 
aspect  of  the  system's  operation  which  requires  study.  In  some  Instances 
the  system  may  be  so  simple  that  it  performs  only  one  task,  and  therefore, 
the  block  diagram  would  completely  describe  the  system's  operation. 
However,  in  most  realistic  situations  the  activity  of  interest  and  thus 
the  related  block  diagram  constitutes  only  a small  part  of  the  system's 
total  operation. 
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THE  PHYSICAL 
SYSTEM 


Figure  2-8.  The  Modeling  Process. 
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In  the  process  of  producing  a block  diagram,  the  analyst  has  been 
required  to  Isolate  and  Identify  those  basic  functions  which  contribute 
to  the  overall  operation  of  the  system.  This  Identification  process  is 
critical  to  both  the  construction  of  the  block  diagram  and  the  develop- 
ment of  mathematical  models.  If  one  Is  unable  to  properly  Identify 
the  basic  functions  contributing  to  the  operation  of  the  system,  then 
either  It  will  be  Impossible  to  produce  a block  diagram  of  the  system, 
or  the  block  diagram  produced  will  Inaccurately  describe  the  system. 

Since  the  mathematical  models  are  developed  from  the  identified  functions, 
any  error  In  the  identification  will  lead  to  an  inaccurate  system  model. 

For  each  of  the  functions  identified,  a mathematical  model  may  be 
developed.  In  the  process  of  formulating  such  models  one  usually  becomes 
aware  of  system  characteristics  which  have  a strong  influence  on  the 
system's  operation  but  which  are  not  considered  to  be  isolatable  inputs 
to  the  system  or  outputs  from  it.  These  characteristics  are  usually 
referred  to  as  system  parameters.  They  should  be  recognized  and  identified 
clearly  so  that  their  effects  may  be  incorporated  into  the  mathematical 
model. 

There  are  actually  two  distinct  modeling  efforts  that  are  a part 
of  MIDACS.  The  first  is  carried  out  by  the  program  developers  and  has  as 
an  end  product  the  library  of  function  and/or  system  models  which  is 
the  heart  of  the  simulation  program.  The  contents  of  this  library  will 
be  discussed  in  Chapters  4 and  5,  but  the  current  discussion  will  center 
on  how  an  individual  member  of  the  library  is  formulated. 

As  indicated  in  Figure  2-8,  the  first  step  in  the  modeling  process 
is  the  identification  of  the  physical  system  to  be  modeled.  For  MIDACS, 
the  scope  of  interest  is  actually  a class  of  systems:  digital  communica- 

tion systems.  Next,  a block  diagram  should  be  produced,  for  each  specific 
system  of  interest,  and  the  functional  blocks  which  are  a part  of  that 
diagram  should  be  identified.  The  next  step  is  identified  in  Figure  2-9, 
and  it  requires  the  developer  to  specify  the  type  of  model  desired: 
system  or  function.  It  should  be  emphasized  that  this  option  is  a direct 
result  of  the  multilevel  modeling  concept  in  MIDACS.  Assume  for  the  moment 
that  a system  level  model  is  desired. 
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Figure  2-9.  The  Development  of  System  and  Function 
Level  Models. 
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The  system  level  model  for  MIDACS  is  a mathematical  representation 
intended  to  describe  one  performance  measure  in  the  environment  of  one 
particular  communication  system.  As  indicated  in  Figure  2-9,  the  effect 
of  certain  important  system  parameters  can  be  reflected  in  the  mathe- 
matical representation,  but  only  one  performance  measure  can  be  evaluated 
by  a single  mathematical  model.  This  point  can  best  be  demonstrated  by 
an  example. 

Consider  the  block,  diagram  in  Figure  2-10.  This  diagram  indicates 
that  the  system  of  interest  is  a binary  PSK  system  using  coherent 
detection.  From  the  block  diagram,  one  can  identify  the  Important 
functions,  and  by  applying  standard  analytical  techniques  one  can  derive 
expressions  for  various  performance  measures.  One  of  the  more  useful 
measures  is  the  probability  of  a bit  error  which  may  be  shown  to  be 


1 - erf 


(1  + a) 


1 - erf 


(2-9) 


where,  is  the  space  probability  a is  the  normalized  decision  threshold, 
and  Y is  the  slgnal-to-nolse  ratio  measured  at  the  output  of  the  bandpass 
filter. 

Given  the  expression  in  (2-9),  one  may  evaluate  the  bit  error 
probability  for  various  values  of  the  parameters  P^,  a,  and  y.  If 
however,  one  wished  to  evaluate  the  slgnal-to-nolse  ratio  at  the  output 
of  the  lowpass  filter,  another  mathematical  model  would  have  to  be 
developed . 

The  system  level  mathematical  models  may  be  obtained  either  by 
original  derivation  or  by  reference  to  the  technical  literature.  In  the 
former  case  a skilled  communications  engineer  will  be  required  to 
generate  the  required  block  diagrams  and  the  related  mathematical 
descriptions.  The  latter  alternative  is  somewhat  more  efficient  since 
previous  results  can  be  utilized.  In  particular,  many  models  are 
readily  available  from  the  following  sources:  [2],  [3],  14],  15],  ]6], 

and  [7]. 
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One  additional  approach  to  system  level  modeling  should  be 
considered.  It  is  conceivable  that  certain  system  structures  will 
find  frequent  use  and  that  the  information  sought  about  these  systems 
may  exceed  that  which  can  be  supplied  by  the  closed  form  system  models 
described  above.  To  meet  this  need  in  a manner  which  is  convenient  for 
the  analyst,  one  could  allow  a structure  formulated  in  the  function- 
level  mode  of  operation  to  be  retained  as  a part  of  the  system-level 
library.  In  this  way  the  user  could  have  access  to  a true  simulation 
model  without  having  to  reconstruct  it  for  each  simulation  exercise. 

Although  such  a model  would  appear  similar  to  the  other  system  models 
using  closed  form  representations,  it  would  in  fact  still  be  a function- 
level  structure.  In  contrast  to  a system-level  model,  a significantly 
different  approach  is  required  for  function-level  models  as  Indicated  by 
Figure  2-9.  The  most  significant  difference  is  that  the  function- level 
models  are  designed  to  accept  simulated  inputs  and  produce  the  corres- 
ponding outputs.  It  bears  emphasizing  that  true  input-output  relationships 
are  involved  and  not  just  performance  measures  based  upon  those  inputs 
or  outputs. 

Another  difference  between  system  and  function-level  models  is 
that  the  functions  being  modeled  fall  into  two  broad  categories:  active 

and  passive  functions.  In  the  present  context,  an  active  function  is 
defined  to  be  one  which  generates  a "signal"  and  a passive  function  is 
one  which  simply  operates  on  a signal  provided  for  it  by  other  functional 
blocks.  A low-pass  filter  would  be  a good  example  of  a passive  function, 
while  a waveform  generator  would  be  characterized  as  an  active  functional 
element . 

The  distinction  between  active  and  passive  functions  contributes  little 
to  the  modeling  process  Itself;  however,  a logical  extension  of  this 
classification  is  the  recognition  that  there  are  two  major  types  of  active 
functions.  The  first  type  produces  a deterministic  output,  and  the  second 
type  produces  a random  or  pseudorandom  output.  Functions  of  the  latter 
type  are  typically  used  to  represent  noise  processes  in  conmunlcatlon 
systems  and  as  such  are  of  extreme  Importance  in  any  realistic  modeling 
effort. 
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It  has  been  noted  that  the  mathematical  models  for  functional 
blocks  actually  describe  an  input-output  relationship.  Such  relationships 
could  be  developed  in  a variety  of  ways,  and  given  a little  imagination 
one  could  envision  a rather  broad  range  of  possible  input-output  pairs. 

For  MIDACS,  a scmewhat  traditional  approach  has  been  taken,  and  inputs 
are  generally  assumed  to  be  time  domain  "signals",  and  outputs  are  those 
time  domain  responses  to  the  specified  outputs. 

The  selection  of  time  domain  modeling  bears  some  discussion.  It 
is  recognized  that  it  is  possible  to  carry  out  much  of  the  modeling  and 
simulation  effort  in  the  frequency  domain  (particularly  for  linear 
functions),  and  furthermore,  it  is  acknowledged  that  there  are  several 
points  in  the  typical  communication  system  where  frequency  domain  infor- 
mation may  be  of  greater  Interest.  However,  there  are  several  critical 
points  in  the  typical  digital  communication  system  where  time  domain 
information  is  essential  for  assessment  of  system  performance.  One 
such  point  is  the  output  of  the  data  source.  Rarely  is  this  point 
characterized  by  its  spectrum.  A similar  situation  exists  in  the 
receiver's  detection/decision  circuitry  where  the  need  for  time  domain 
information  at  this  point  is  emphasized  by  timing  circuitry  associated 
with  the  decision  circuits.  Nonlinear  functional  elements,  as  a class, 
are  most  easily  modeled  in  the  time  domain.  It  may  be  concluded  that 
the  most  efficient  modeling  approach  lies  in  the  time  domain  since 
several  Important  points  in  the  signal  path  have  critical  ties  with 
time  domain  Information.  This  should  not  be  viewed  as  a disregard  of 
the  need  for  spectral  information,  since  it  is  recommended  that  a fast 
Fourier  transform  (FFT)  algorithm  be  made  a part  of  MIDACS.  Thus,  when 
spectral  information  is  needed,  the  analyst  may  transform  the  time-domain 
data  to  the  frequency  domain. 

The  final  topic  of  this  section  is  the  actual  implementation  of 
mathematical  models  for  functional  blocks.  The  area  of  system  analysis 
has  given  rise  to  a variety  of  forms  for  describing  the  operation  of 
physical  systems,  and  four  techniques  will  be  described. 
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Consider  the  functional  elements  depicted  In  Figure  2-11.  Each 
functional  element  Is  commonly  encountered  In  the  block  diagrams  of 
digital  communication  systems,  and  each  element  Is  described  by  an 
algebraic  equation.  Note  that  both  linear  and  nonlinear  functions  may 
be  described  by  algebraic  equations.  The  major  shortcommlng  of  the 
algebraic  representation  Is  that  It  does  not  account  for  element  memory, 
but  In  recognition  of  the  multilevel  modeling  concept  It  should  be 
emphasized  that  a no-memory  representation  may  be  sufficient  as  an 
approximation  in  some  cases. 

A second  approach  Is  to  represent  a function  by  an  ordinary  differen- 
tial equation,  and  then  to  seek  a solution  to  that  equation.  The  study 
of  differential  equations  has  a long  history,  anjj=  solutions  have  been 
found  for  many  of  the  more  commonly-encountered  forms;  however,  the 
analytical  solutions  for  these  equations  often  have  limited  appeal  for 
computer  applications.  The  basis  for  this  will  be  illustrated  by  an 
example . 

Consider  the  simple  lowpass  filter  of  Figure  2-12(a).  This  circuit 
may  be  described  by  a differential  equation  by  standard  techniques 
Illustrated  In  texts  on  network  analysts  and  mathematics;  ^8,  page  114], 
[9,  page  72].  The  result  of  such  an  exercise  Is  the  equation  appearing 
In  Figure  2-12(b).  This  equation  Is  a linear  first  order  ordinary 
differential  equation,  and  the  solution  for  the  output  voltage  V^(t) 

In  terms  of  the  Input  voltage  V^(t)  and  the  filter  elements  R and  C 
Is  given  by  [10,  page  185]. 


where 


Vo(t) 


h 

V^(t)  dt  + K 


(t  - t)/RC 


and  K Is  a constant  determined  by  Initial  conditions  at  time  t. 


(2-10) 


(2-11) 
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Figure  2-11.  Functions  Described  By  Algebraic  Equations. 
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Figure  2-12.  (a)  A Lowpass  Filter  and, 

(b)  Its  Differential  Equation  Representation. 
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Equation  (2-10)  accounts  for  both  the  transient  and  steady-state 
components  of  the  output  voltage,  but  the  question  remains  as  to  how  to 
evaluate  this  equation.  One  possible  approach  Is  to  use  the  techniques 
of  numerical  quadrature  (11,  page  59]  to  evaluate  the  Integral  In  (2-10), 
but  all  that  would  be  accomplished  by  doing  so  Is  that  numerical 
Integration  would  be  substituted  for  a numerical  solution  to  the  differen- 
tial equation. 

One  might  consider  the  possibility  of  analytically  performing  the 

integration  In  (2-10)  with  the  hope  that  the  final  result  will  be  a 

simple  algebraic  expression  for  V (t),  but  that  approach  has  two  major 

o 

problems.  First,  there  Is  no  guarantee  that  a closed-form  analytical 
solution  exists  for  an  arbitrary  V^(t).  Second,  even  If  analytical 
Integration  is  possible,  the  result  obtained  will  apply  only  to  the 
particular  form  of  V^(t)  assumed  for  the  integration.  If  V^(t) 
changes,  another  output  expression  Is  required. 

Another  approach  uses  the  standard  techniques  for  numerically 
solving  differential  equations.  This  approach  has  been  elegantly 
developed  by  state  variable  analysis  for  time  variant  and  nonlinear 
systems  [12,  page  313],  [13,  page  114],  [14,  page  60]. 

In  the  state  variable  approach  It  is  customary  to  describe  a system 
by  a pair  of  vector-matrix  equations  [13,  page  107]. 

[Q(t)]  = [A][Q(t)]  + [B][X(t)]  (2-12) 

[Y(t)]  = [C][Q(t)]  + [D][X(t)]  (2-13) 

In  the  above  equations,  [X(t)]  is  the  Input  vector,  [0(t)]  is  the  state 
vector,  and  [Y(t)]  Is  the  output  vector.  Notice  that  equation  (2-12) 

Is  In  the  form  of  a first  order  differential  equation  and  that  It  Is 
necessary  to  solve  the  equation  in  order  to  evaluate  the  output  vector 
[Y(t)].  In  theory  this  method  allows  one  to  Interface  multiple  blocks 
by  performing  matrix  multiplication  operations;  however,  a practical  limit 
Is  reached  very  quickly  for  this  Interfacing  approach  The  limit  Is  estab- 
lished by  the  maximum  array  size  permitted  for  the  host  computer  and  the 
excess  computation  time  required  in  Inverting  one  i.ai  ,;e  matrix  rather  than 
several  smaller  ones. 
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There  are  a variety  of  numerical  techniques  available  for  solving 
differential  equations  [11,  page  73].  The  general  concept  will  be 
Illustrated  by  employing  one  particular  approach:  the  Runge-Kutta 

method.  The  differential  equation  appearing  In  Figure  2-12(b)  will  be 
used,  but  It  will  be  rewritten  In  the  form 

• 

V (t)  - f[t,  V (t)]  (2-14) 

o o 


where 


f[t,  V^(t)] 


V (t)  - V (t) 
1 o 

RC 


(2-15) 


By  applying  the  Runge-Kutta  method,  successive  sample  values  of 
V^(t)  may  be  determined  by  the  following  equation 


o n+1  on  \ ^ I n on 


1 f f(t  + T),  V (t  ) + Tf [t  , V (t  )]]. 

2 n on  non 


(2-16) 


In  the  above,  t^  Is  the  n-th  sampling  time,  and  T is  the  time  between 
samples. 

The  result  of  substituting  equations  (2-14)  and  (2-15)  into  (2-16) 
Is 


V (t  ^-)  = V (t  ) + ^ 
o n+1  on  12 


V (t  ) - V (t  ) 
1 n o n 

RC 


V (t  +1)  - V (t  ) - (V.(t  ) - V (t  )] 

T 1 n o n RC 1 n o n 

2 RC 


(2-17) 


Equation  (2-17)  could  be  used  in  this  form  to  evaluate  the  output 

voltage  V (t)  In  terms  of  the  Input  voltage  V. (t)  and  the  RC  time  constant, 
o 1 
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The  final  mathematical  modeling  approach  to  be  discussed  was 
developed  expressly  for  the  simulation  of  continuous  time  systems 
by  a digital  computer.  The  technique  leads  to  a difference  equation 
similar  to  the  one  of  (2-17),  but  this  difference  equation  Is  obtained 
by  use  of  the  Z-transform.  A detailed  discussion  of  this  approach  is 
presented  by  Rosko  [14,  page  85],  and  the  following  material  will 
summarize  Rosko' s presentation. 

All  signals  In  a digital  simulation  are  represented  by  discrete 
time  samples  of  the  actual  continuous  time  signals.  This  sampling 
process  tends  to  alter  the  nature  of  the  Involved  signals  which  Is  easily 
demonstrated  In  the  frequency  domain.  Figure  2-13  shows  how  the  signal's 
spectrum  Is  affected.  Sampling  at  or  above  the  Nyqulst  rate  does  the 
least  harm  to  the  signal,  and  sampling  below  the  Nyqulst  rate  does 
Irreparable  damage  to  the  signal.  Compensation  can  be  made  for  the 
alteration  In  the  signal  caused  by  sampling  at  or  above  the  Nyqulst 
rate  bv  Introducing  what  Rosko  [14,  page  91]  refers  to  as  data  reconstructors 
Into  the  functional  representation.  Figure  2-14  shows  the  relationship 
between  a given  functional  block  and  its  representation  Including  the 
data  reconstructor. 

The  type  of  data  reconstructor  to  be  employed  In  a given  situation 
Is  somewhat  dependent  upon  the  Input  waveforms  that  may  be  anticipated. 

In  particular,  the  reconstructor  used  for  a given  model  should  as 
accurately  as  possible  reflect  the  Input  signal's  trajectory  between 
the  samples  taken  of  that  signal.  In  many  digital  systems,  the  waveforms 
are  rectangular,  and  therefore,  a zero-order  hold  device  makes  an  excellent 
data  reconstructor.  The  mathematical  model  that  will  be  developed  will 
thus  actually  describe  the  function  appearing  In  Figure  2-14(b). 

As  an  example  consider  the  circuit  of  Figure  2-12.  The  starting 
point  for  this  method  Is  the  circuit  transfer  function  which  Is: 


n(s) 


g 

s+g 


(2-18) 


g » 1/RC 


(2-19) 
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Nyqulst  Rate  (b) , Vfhen  Sampled  Below  the  Nyqulst 
Rate  (c),  and  When  Sampled  Above  the  Nyqulst 
Rate  (d). 


I 
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(b) 


Fl'jure  2-14.  A Functional  Block  (a)  and  Its  Model 
Using  A Data  Reconstructor(b) . 
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The  data  reconstructor  is  assumed  to  be  a zero-order  hold,  and  its 
transfer  function  is 


- —s 


-Ts 


(2-20) 


where  T is  the  data  sampling  period. 

Next,  the  Z-domaln  transfer  function  for  the  combined  low-pass 
filter  and  data  reconstructor  Is  computed. 


G^(z)  - Z <G(s)Gj^(s) 


- Y(z) 

X(z) 


1-e 


-oT 


Z-e 


-aT 


(2-21) 


(2-22) 


By  cross  multiplying  equations  (2-21)  and  (2-22),  the  expression  is 
obtained : 


Y(z)  - z"^  e““^  Y(z)  + z“^  [l-e"“^]  • X(z)  (2-23) 


A difference  equation  for  y(t)  may  now  be  derived  by  taking  the  inverse 
Z-transform  of  equation  (2-23). 


y*(nT)  - e““'^  y*[(n-l)T]  + [l-e"®"^]  • X[(n-1)T]  (2-24) 


One  lof>ortant  characteristic  of  this  result  should  be  pointed  out. 

For  an  arbitrary  Input,  x(t),  this  representation  Is  an  approximation,  but 
for  rectangular  Input  waveforms  it  Is  an  exact  solution. 

Several  mathematical  modeling  techniques  have  been  examined,  and 
their  respective  strengths  and  weaknesses  have  been  pointed  out.  It 
might  be  expected  that  one  approach  should  be  singled  out  as  being  the 
approach  to  use;  however,  this  will  not  be  done  since  no  one  approach  Is 
superior  In  all  circumstances.  Instead,  It  Is  recommended  that  each 
model  be  considered  Individually  and  that  the  unique  features  of  each 
function  be  used  to  determine  which  technique  is  most  suitable. 

This  approach  Is  feasible  since  the  MIDACS  concept  requires  only  the 
compatibility  of  time-domain  Inputs  and  outputs. 


One  additional  modeling  concept  that  should  be  noted  la  the  modeling 
of  signals  and  functions  In  the  RF  portions  of  communication  systems. 

It  is  readily  observed  that  in  most  communication  systems  the  carrier 
component  of  the  transmitted  or  received  signal  conveys  little  or  no 
information  Itself,  and  therefore,  the  simulation  of  such  a component 
would  add  little  to  an  analysis.  A similar  situation  exists  for  RF 
circuit  elements  such  as  bandpass  filters.  Rarely  Is  any  unique  feature 
associated  with  a given  center  frequency  for  a bandpass  filter.  The 
normal  point  of  Interest  Is  the  filter’s  effect  upon  the  spectrum  of 
the  signal's  Intelligence.  For  narrowband  systems  It  Is  possible  to 
generate  a lowpass  or  baseband  model  of  the  traditional  RF  signals  and 
circuits  [15]. 

The  baseband  representation  of  both  signals  and  circuits  Is  desirable 
since  It  will  significantly  reduce  the  number  of  samples  required  for  a 
simulation.  Manske  [15]  shows  that  such  a representation  Is  possible 
if  the  narrowband  assumption  Is  valid  and  If  the  In-phase  and  quadrature 
components  of  the  signals  are  retained.  He  then  proceeds  to  show  how 
models  for  a variety  of  circuit  functions  can  be  developed  using  these 
in-phase  modulators  and  demodulators,  and  frequency- independent  non- 
llnearltles.  The  detalla  of  how  the  various  elements  can  be  modeled 
will  not  be  repeated  here  since  the  Intent  of  this  effort  Is  to  determine 
workable  concepts  rather  than  to  produce  specific  models. 

Earlier  It  was  Indicated  that  there  are  two  aspects  of  modeling 
In  the  MIDACS  concept.  The  first  aspect,  model  development,  has  been 
discussed  above,  and  the  second  aspect,  model  use,  will  now  be  considered. 

A user  of  MIDACS  would  draw  upon  the  library  of  mathematical  models 
developed  by  application  of  the  concepts  described  above.  However,  It  Is 
Important  to  distinguish  between  the  highly  detailed  and  complex  task 
of  mathematical  model  development  and  the  somewhat  simpler  task  of  using 
the  models.  Model  use  Is  actually  a software /programming  consideration 
since  It  Is  concerned  primarily  with  what  models  are  available,  what  the 
characteristics  of  a given  model  are,  how  a given  model  Is  connected  to 
another  model  to  form  a system  structure,  what  mathematical  techniques 
are  employed  to  exercise  the  models,  and  what  models  are  compatible.  This 
aspect  of  modeling  will  be  discussed  In  Chapter  3. 


/ 


2-33 


2.3  Simulation  Concepts 


As  discussed  here,  simulation  is  a multistep  process  consisting  of: 

1.  The  Identification  of  the  system  of  Interest, 

2.  The  structuring  of  a block  diagram  of  that  system  which  employs 
the  mathematical  models  previously  discussed, 

3.  The  specification  of  measures  of  performance  which  are  to  be 
evaluated  during  the  simulation  exercise,  and 

4.  The  exercising  of  the  model  for  evaluation  purposes. 

Items  one  and  two  of  the  above  are  a part  of  the  modeling  concept 
presented  In  the  latter  part  of  Section  2.2,  and  will  not  be  discussed 
further  here. 

The  primary  objective  of  a system  simulation  is  the  evaluation  of  some 
aspect  of  a system's  performance.  This  evaluation  is  usually  carried  out 
by  defining  certain  performance  measures  and  then  determining  a quanita- 
tlve  value  for  that  measure  in  the  system  being  studied.  A variety  of 
performance  measures  have  been  identified  and  defined  in  the  technical 
literature  on  digital  communication  systems,  and  since  many  of  the 
measures  have  gained  widespread  acceptance.  It  is  logical  to  incorporate 
them  Into  the  MIDACS  structure.  Some  of  the  more  Important  measures 
are  identified  and  discussed  in  Table  2-1. 

For  any  performance  measure  of  Interest,  a software  program  will  be 
required  which  (1)  Indicates  how  the  system  model  is  to  be  exercised,  (2) 
identifies  what  data  is  to  be  collected  for  evaluation  purposes;  and  (3) 
defines  how  the  collected  data  is  to  be  used  in  obtaining  a quantitative 
value  for  the  measure  of  interest.  As  an  example,  assume  th«f  spectral 
information  is  desired.  The  appropriate  subroutine  would  proceed  to 
process  a typical  data  waveform  through  the  system.  At  the  point  where 
spectral  information  is  required,  a collection  of  time  domain  samples 
would  be  taken.  The  collected  data  would  then  be  used  in  a fast  Fourier 
transform  (FFT)  algorithm  to  produce  the  required  spectrum. 
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Performance  Parameters 
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In  most  Instances  the  probability  of  error  (P  ) parameter  Is 

e 

considered  to  be  of  the  greatest  Importance,  and  for  this  reason  several 
exercise  techniques  have  been  explored  which  allow  the  evaluation  of 

P . 

e 

The  first  exercise  technique  to  be  discussed  will  be  referred 
to  as  the  analytlcal/numerlcal  approach.  This  exercise  form  is  primarily 
Intended  for  system  level  models  and  does  little  more  than  evaluate 
the  appropriate  system  mathematical  model,  given  the  current  parameter 
specifications. 

The  most  serious  shortcomings  of  this  approach  are  that  It  Is  not 
generally  applicable,  and  that  a skilled  analyst  may  be  required  to 
select  required  functional  expressions  relating  parameters  to  performance 
measures . 

Requirements  for  applicability  of  this  method,  in  the  typical  case, 
are  systems  whose  components  are  linear,  noise  which  is  additive  and 
Gaussian,  and  interference  which  is  additive.  Both  systems  without  memory 
and  systems  with  memory  can  be  handled,  but  the  latter  lead  to  less 
tractable  expressions. 

Typical  effects  which  are  more  difficult  to  handle  using  this  method 
are:  nonlinearities,  nonaddltlve  noise,  and  non-Gaussian  noise. 

Among  the  advantages  of  this  method  is  the  fact  that  it  can  be 
very  efficient  computationally,  especially  if  the  final  functional 
expression  is  in  closed  form.  Of  course,  more  computer  time  is  required 
If  numerical  methods  must  be  used  to  evaluate  Integrals,  solve  differen- 
tial equations,  or  approximate  the  sums  of  infinite  series.  On  a relative 
basis,  however,  almost  any  analysis  using  the  analytical/numerical 
approach  requires  less  computer  time  than  alternative  methods. 

Next,  a group  of  exercise  approaches  will  be  discussed  which  lead 
to  the  more  traditional  simulation.  As  a group,  these  techniques  fall 
Into  the  category  of  Monte  Carlo  studies  since  they  In  theory  subject 
the  system  to  all  possible  combinations  of  inputs. 
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The  most  straightforward  "Monte  Carlo"  approach  would  use  exclusively 
deterministic  Inputs.  Thus,  for  fixed  Inputs  and  parameters  the  function 
outputs  and  the  final  system  output  would  be  deterministic  functions  of 
time.  This  type  of  Monte  Carlo  study  would  apply  to  communication 
systems  for  which  all  sources  of  noise  or  random  variations  were  negligible. 
Although  such  conditions  would  not  normally  give  an  accurate  general 
model,  there  are  situations  in  which  a completely  deterministic  study 
of  a communication  system  could  give  desired  results. 

Implementation  of  a deterministic  Monte  Carlo  study  would  depend 
on  the  nature  of  the  specified  functions.  However,  since  each  such 
function  is  analyzed  numerically,  to  compute  outputs  for  given  inputs  in 
the  time  domain,  there  are  few  restrictions  in  principle  on  the  nature 
of  the  functions.  Restrictions  come  from  the  computer  times  required 
for  calculation. 

Modeling  of  memory  in  a system  function  typically  leads  to  a 
differential  equation  representation  for  the  function.  Numerical  solution 
of  differential  equations  can  be  time-consuming  computationally.  Especially 
stringent  demands  on  computer  time  result  if  RF,  as  opposed  to  baseband, 
models  must  be  processed,  or  if  computation  must  be  carried  through  a 
lengthy  transient  period  to  reach  steady  state. 

For  completely  deterministic  inputs,  a typical  system  with  memory 
might  require  tens  of  minutes  of  large-scale  computer  time.  Thus, 
almost  any  specified  deterministic  system  can  be  analyzed  in  a feasible 
amount  of  computer  time. 

It  is  Interesting  to  note  that,  using  this  method,  specific  time 
functions  would  be  computed  for  the  system  output  and  each  function 
output.  The  Fourier  transform  of  any  one  of  these  time  functions  could 
be  computed  (using  for  example  the  fast  Fourier  transform)  to  obtain 
amplitude  spectra. 

The  limited  Monte  Carlo  approach  is  a term  applied  to  a Monte  Carlo 
approach  which  accounts  for  random  Inputs  in  a very  tractable,  but 
approximate,  manner.  Random  Inputs  are  accounted  for  by  using  in  the 
simulation  study  only  one  sample  function  (or  a very  limited  number  of 
sample  functions)  from  each  random  input.  The  single  sample  function  is 
chosen  to  be  "typical"  of  the  ensemble  of  such  sample  functf"'ns. 
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Once  the  typical  sample  functions  are  chosen,  the  study  Is  carried 
out  In  the  same  manner  as  a deterministic  study.  The  result  is  a 
single  time  function  for  the  system  output  and  any  desired  Intermediate 
outputs.  By  carefully  choosing  the  typical  sample  functions  so  that, 
for  example.  Its  variance  Is  close  to  that  of  the  ensemble  variance, 
certain  computed  outputs  are  good  approximations  of  those  obtained  by  a 
true  statistical  average.  For  example,  using  this  method  the  spectrum 
of  the  squared  magnitude  of  function  outputs  Is  a good  approximation  of 
the  statistical  power  spectrum. 

The  limited  Monte  Carlo  approach  seems  to  have  been  used  to  good 
advantage  In  such  problems  as  studying  adjacent  channel  Interference  for 
both  linear  and  nonlinear  systems;  see  for  example  [16,  17,  18,  19,  20]. 

In  evaluating  the  limited  Monte  Carlo  approach,  accuracy  is  a 
primary  consideration.  Unfortunately,  the  technique  of  using  a single 
"typical"  sample  function  from  random  Inputs  to  replace  what  should  be 
a statistical  average  Is  difficult  to  analyze  for  accuracy.  The  problem 
Is  one  of  statistical  estimation  for  which  confidence  limits  on  accuracy 
would  be  desired.  However,  the  difficulty  of  the  statistical  estimation 
problem  Is  comparable  to  the  underlying  communication  system  problem, 
so  that  In  most  uses  of  this  method  accuracy  Is  essentially  unknown. 

The  computer  time  required  for  a limited  Monte  Carlo  study  Is 
comparable  to  that  used  In  a deterministic  Monte  Carlo  study. 

The  true  Monte  Carlo  approach  removes  the  accuracy  limitation 
of  the  limited  Monte  Carlo  method  but  at  the  expense  of  requiring  orders 
of  magnitude  more  computer  time.  Typical  true  Monte  Carlo  studies  are 
discussed  in  the  following  references:  (21,  22,  23].  It  Is  worth 

noting  that  many  of  the  general  system  simulation  programs  use  the  true 
Monte  Carlo  method;  see  for  example  [24,  25,  26,  27,  28]. 

Unlike  the  limited  methods,  the  true  Monte  Carlo  method  requires 
computation  of  an  ensemble  of  output  functions  corresponding  to  an  ensemble 
of  Input  sample  functions  for  all  random  Inputs.  Given  the  calculated 
ensemble  of  outputs,  averaging  Is  carried  out  to  estimate  desired  para- 
meters such  as  probability  of  error,  means,  variance,  or  power  spectra. 
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The  statistical  accuracy  of  the  Monte  Carlo  method  Is  determined 
ultimately  by  how  many  sample  functions  are  used  In  estimating  the  true 
statistical  average.  For  many  problems  it  Is  possible  to  compute 
confidence  intervals  for  parameter  estimates.  In  typical  cases  thousands 
of  outputs  must  be  averaged,  and  each  output  requires  essentially  the 
same  computation  time  as  one  output  for  a deterministic  or  limited 
Monte  Carlo  study. 

The  Chernoff  bound  [29]  can  be  used  to  estimate  the  number  of  samples 
required  in  a typical  Monte  Carlo  study  to  determine  probability  of  error. 
A straightforward  calculation  results  In  Table  2-2  which  tabulates  the 
number  of  samples  required  as  a function  of  fractional  error  in  estimating 
probability  of  error  for  error  probabilities  of  10  ^ and  10 

TABLE  2-2 

NUMBER  OF  SAMPLES  REQUIRED  IN  A MONTE  CARLO  STUDY 


Percentage  Error 
10% 

20% 

100% 


Error  Probability 


Number  of  Samples 


2.9  X 10^ 

1.9  X 10^ 

2.1  X 10^ 


2.9  X 10^ 
1.4  X 10^ 
2.1  X 10^ 


This  table  shows  that  on  the  order  of  10,000  samples  must  be 

processed  to  achieve  reasonable  accuracy  for  an  error  probability  of 
-3 

10  . In  a typical  case  of  a 4-phase  PSK  system  studied  with  a large 

scale  computer,  approximately  0.1  second/sample  was  required  to  compute 
a single  output.  Thus  10,000  samples  require  on  the  order  of  15  minutes 
of  computer  time.  A similar  calculation  shows  that  15,000  minutes  of 
computer  time  are  required  to  produce  comparable  accuracy  for  10  error 
probability. 
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A number  of  methods  have  been  reported  in  the  literature  for  combining 
the  analytical/numerical  and  Monte  Carlo  methods.  Such  combined  Monte 
Carlo  methods  can  solve  practical  problems  in  reasonable  computational 
times,  and  in  fact  seem  to  offer  the  most  potential  of  all  the  methods 
studied. 

Unfortunately,  there  are  two  related  shortcomings  of  the  combined 
methods  from  the  point  of  view  of  the  objectives  of  the  present  effort, 
namely:  they  are  special-purpose,  and  they  must  be  tailored  by  a skilled 

analyst.  On  both  counts  they  are  not  suited  to  general  interactive  imple- 
mentations for  which  the  equations  for  a specified  system  are  organized 
and  put  together  by  the  computer  software. 

Some  effort  during  the  preliminary  phases  of  the  present  contract 
was  directed  toward  the  development  of  a method  which  has  the  attractive 
features  of  the  combined  methods,  but  which  in  addition  removes  the  two 
shortcomings  of  these  methods.  The  work  has  resulted  in  the  development 
of  a "modified"  Monte  Carlo  method  which  Is  general  In  nature.  Is  char- 
acterized by  function  equations  which  can  be  assembled  in  the  same  manner 
as  for  the  true  Monte  Carlo  methods,  and  has  the  attractive  computational 
features  of  the  combined  Monte  Carlo  methods. 

The  chief  shortcoming  of  the  true  Monte  Carlo  method  is  the  excessive 
computer  time  required  to  compute  small  error  probabilities.  The  un- 
reasonable computer  times,  in  turn,  are  caused  by  the  fact  that  literally 
millions  of  correct  bits  must  be  processed  through  the  equations  for  a 
system  in  order  to  get  one  bit  in  error.  The  combined  Monte  Carlo  approach 
owes  its  success  to  the  use  of  analytical  methods  to  express  the  probabil- 
ity of  error  in  a low-noise  environment,  thus  avoiding  the  difficulty  just 
discussed.  Actually,  in  the  combined  method  the  analytically  expressed 
probability  can  be  conditioned  on  fixed  patterns  for  other  random  inputs, 
such  as  signals,  and  averages  with  respect  to  these  variables  can  be 
carried  out  with  Monte  Carlo  methods  usea  subsequent  to  the  analytical 
determination  of  probabilities  with  respect  to  the  noise. 

The  modified  Monte  Carlo  method  has  been  devised  as  a means  for 
generalizing  and  systematizing  the  analytical  computation  of  probabilities 
with  respect  to  noise,  possibly  conditioned  on  fixed  patterns,  for  other 
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variables.  The  method  has  the  desirable  feature  that  It  works  with  the 

functlon-by-functlon  system  equations  which  are  assembled  by  the  computer 

software  for  use  In  a subsequent  Monte  Carlo  study  or  for  use  in  calculations. 

Considerations  Involved  In  a modified  Monte  Carlo  approach  are 

Illustrated  by  a study  of  a typical  communication  system  structure  such 

as  shown  In  Figure  2-15.  In  the  usual  case,  a complete  statistical 

characterization  of  the  noise  inputs  Is  given  along  with  a similar 

characterization  of  the  discrete  sequence  of  transmitted  messages.  The 

encoder,  the  transmitter,  the  channel,  and  the  basic  receiver  are 

described  by  equations  (or  representations)  selected  by  the  analyst.  A 

discrete  decision  variable,  obtained  by  sampling  appropriate  variables 

at  the  output  of  the  basic  receiver  Is  observed  by  a decision  function 

with  specified  regions  which  correspond  to  the  possible  output  variables. 

In  operation,  the  complete  system  maps  a sequence  of  discrete 

messages  {m  } Into  a corresponding  sequence  of  received  messages  {m  }.  The 
n n 

key  steps  In  the  process  can  be  represented  by  the  equivalent  system 
structure  shown  in  Figure  2-15(b).  The  decision  variable  Y^,  at  the 
n'th  sampling  Instant,  can  be  expressed  as  a function  of  the  following 
variables: 

(1)  the  noise  inputs,  N(t) ; for  all  past  time, 

(2)  the  sequence  of  message  Inputs  and 

(3)  the  Impulse  response,  h(t),  of  the  complete  system  through  the 
basic  receiver. 

Mathematically  this  can  be  written  as 

Y - f[m  , N(t)]  for  all  1 and  t < nT.  (2-25) 

n n — 

Note  that  1®  a sequence  with  known  statistics,  N(t)  Is  a random 

process  with  a known  statistical  characterization,  and  h(t)  Is  a deterministic 
time  function  which  can  be  computed. 
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-15(b).  Equivalent  System  Structure. 


In  Implementing  the  modified  Monte  Carlo  approach.  It  Is  convenient 

to  fix  the  message  sequence  so  that  It  becomes  no  longer  a random 

variable.  Thus  can  be  expressed  as  a deterministic  function  f*['l  of 

the  random  noise  inputs  N(t)  for  fixed  (m  }.  (Note  that  the  effect  of 

n 

the  deterministic  functions  {m  } and  h(t)  can  be  included  in  the  definition 

n - — 

of  f *) . Mathematically  this  gives  the  equation 

- f*[N(t)]  all  t £ nT.  (2-26) 

This  equation  is  a deterministic  mapping  of  a random  process  N(t)  on 

(~",nT)  into  a random  variable  Y^.  In  principle,  knowing  the  statistical 

properties  of  N(t)  and  of  the  function  f*,  the  density  function  of  the 

random  variable  Y can  be  computed, 
n 

The  final  step  in  the  operation  of  the  communication  system  is  the 

decision  process  which  maps  the  space  of  Y values  into  received  messages 

..  n 

(every  Y goes  into  one  m ).  An  error  occurs  If  a given  transmitted- 
n n 

message  bit  produces  a value  of  the  decision  variable  which  maps  into  a 
value  other  than  the  correct  one.  This  is  Illustrated  in  Figure  2-16 
for  a binary  message  and  Gaussian  noise. 

In  the  context  of  the  example  illustrated  in  Figure  2-16,  the  key 
step  in  the  modified  Monte  Carlo  method  is  the  realization  of  the  fact 
that  the  probability  that  Y^,  given  that  m^  is  transmitted,  is  less  than 
-d  (so  that  an  error  occurs),  is  equal  to  the  probability  that  the  noise 
process  N(t)  has  followed  a trajectory  which  produces  a value  of  Y^  in 
the  error  range.  Mathematically  this  fact  is  given  by 

Prob.  Error  * P (Y  e (-®,-d)}  “ P (N(t)  e A)  (2-27) 

n 

where  A is  the  set  of  all  points  such  that  f*  ^ (-®,-d). 

The  result  Illustrated  by  the  example  is  general.  That  is  to  say, 
the  probability  of  error,  which  is  expressed  by  the  probability  that  Y^ 
is  contained  in  a certain  region  of  its  space,  is  also  equal  to  the 
probability  that  the  trajectory  of  N(t)  is  contained  in  a set  which  is 
defined  through  the  Inverse  of  the  f*  function.  Once  the  region  of 
the  n(t)  trajectory  causing  error  is  known,  the  probability  of  error  can 
be  computed  by  appropriate  Integration  over  the  known  density  functions  of  N(t). 
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Figure  2-16.  Illustration  of  An  Error  for  A 
Binary  System. 
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The  approach  of  the  modified  Monte  Carlo  method  Is  to  find  the 
error  set.  A,  for  N(t)  through  an  efficient  search  procedure  using  decision 
boundaries  determined  from  the  assembled  function  models.  Once  this 
set  is  found,  the  error  probability  (which  in  most  cases  will  be  conditioned 
on  certain  message  sequences)  can  be  computed  by  appropriate  Integration 
over  the  given  statistics  of  N(t). 

Of  the  simulation  techniques  examined  as  a part  of  this  study,  the 
modified  Monte  Carlo  approach  seems  to  be  the  best  overall,  but,  as  in 
the  case  of  the  modeling  approaches,  this  general  superiority  is  not  so 
overwhelming  as  to  allow  one  to  totally  Ignore  the  possible  use  of  any 
other  technique.  In  fact,  the  availability  of  several  exercise  techniques 
would  be  in  harmony  with  the  multilevel  analysis  stressed  in  the  general 
MIDACS  concept. 
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3.  PROGRAMMING  STRUCTURE  FOR  MIDACS 


3.1  Approach  to  Software  Development 

Software  is  a major  cost  factor  in  the  design  of  many  computer-based 
application  systems.  For  this  reason  it  is  very  important  to  use  every 
practical  technique  for  reducing  the  software  development  costs  without 
sacrificing  the  quality  of  the  finished  product.  The  development  approach 
for  MIDACS  must  also  take  into  account  the  possibility  that  the  designated 
host  computer  may  not  be  available  for  use  until  some  time  after  the  MIDACS 
development  is  underway.  The  programming  approach  described  below  Insures 
that  facilities  and  resources  are  used  efficiently,  that  some  parts  of  the 
MIDACS  system  can  be  made  operational  while  development  continues,  and 
that  software  can  be  transferred  from  one  host  computer  to  another  with 
minimal  modifications. 

One  technique  for  efficient  software  development  is  called  top-down 
programming.  The  software  engineer  first  decides  on  the  general  features 
of  the  application  program,  and  then  he  constructs  a model  in  which  the 
general  features  are  broken  down  into  sets  of  tasks,  which  in  turn  are 
broken  down  into  specific  operations,  and  so  on,  until  the  detail  is  suf- 
ficient to  specify  each  subroutine  needed  to  fulfill  the  goals  of  the 
application.  Then  the  designer  uses  this  procedure  again  for  each  sub- 
routine, until  it  reveals  the  actual  program  statements  required  to  imple- 
ment the  operation.  The  various  levels  of  detail  in  the  top-down  defini- 
tion often  provide  clues  for  implementing  a programming  hierarchy,  where 
one  subroutine  at  one  level  oerforms  a task  by  calling  several  subroutines 
at  a lower  level,  each  dedicated  to  one  phase  of  the  task.  The  end  result 
of  the  top-down  design  process  is  a large  program  composed  of  short,  iden- 
tifiable, separable,  logically  connected  subroutines. 

Structured  programming  is  another  technique  for  efficient  software 
development.  Any  large  scale  software  project  usually  requires  the  services 
of  several  programmers  working  together.  To  insure  that  their  efforts  are 
coordinated  and  that  the  components  of  the  software  are  compatible,  a task 
leader  identifies  certain  programming  conventions  to  be  followed  for  various 
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phases  of  the  development.  Examples  include  the  names  and  sizes  of  common 
arrays  to  be  used,  names  and  functions  of  control  variables  to  be  set, 
and  the  number  and  types  of  arguments  in  the  subroutine  call.  The  details 
Internal  to  the  subroutines  are  left  to  the  skill  of  the  individual  pro- 
grammer. Once  written,  the  subroutines  are  then  incorporated  into  the 
application  program  with  little  or  no  modifications.  In  this  fashion 
the  structured  programming  method  distributes  the  work  load  and  speeds 
up  the  implementation  process. 

The  MIDACS  software  will  be  developed  using  both  top-down  and  struc- 
tured programming  techniques.  Figure  3-1  shows  how  the  combination  of 
these  two  approaches  results  in  a versatile  hierarchical  framework  that 
provides  for  fast  implementation  and  continuing  system  expansion.  Notice 
that  subroutines  can  be  grouped  into  classes  such  as  secondary  controllers, 
subfunction  simulators,  etc.  Programming  tasks  can  be  distributed  among 
several  programmers  by  defining  a set  of  input  conditions  to  be  satisfied 
by  each  subroutine  of  a given  class.  Conditions  include  the  names  of 
common  arrays  to  be  accessed,  the  number  and  type  of  arguments  in  the 
subroutine  call,  and  any  operations  that  must  be  performed  as  part  of 
general  housekeeping  duties.  Additionally,  if  a class  of  subroutines 
must  return  Information  to  the  calling  program,  the  nature  and  location 
of  this  information  must  be  specified.  In  many  cases,  the  subroutines 
in  one  class  will  be  calling  other  classes  of  subroutines.  For  example, 
one  controller  will  call  function  simulators  while  another  calls  system 
level  analysis  routines.  In  this  case  the  calling  programs,  while  belong- 
ing to  the  class  of  secondary  controllers,  do  not  necessarily  have  com- 
patible outputs.  That  is,  the  input  conditions  for  the  simulators  will 
likely  be  different  from  the  input  conditions  for  the  analysis  routines. 

The  result  is  that  in  some  cases  the  individual  programmer  will  define  a 
set  of  conditions  for  a new  class  of  subroutines  to  be  called  from  the 
program  that  he  has  developed. 

Finally,  notice  that  subroutines  D and  E in  the  figure  both  access 
the  class  4 subroutines.  Here  the  output  conditions  of  D and  E would  have 
to  be  the  same,  since  both  must  match  the  input  conditions  of  class  4. 
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An  Example  of  Subroutine  Class  Groupings  and  Hierarchy  for  Structured  Programming  Approach. 


With  this  programming  approach,  the  various  classes  can  be  set  up  quickly 
and  the  minimum  system  implemented  with  a handful  of  subroutines  in  each 
class.  Then  system  development  and  expansion  can  continue  by  adding  the 
necessary  subroutines  in  each  existing  class  and  defining  additional  classes 
as  may  be  required. 

3.2  Software  Composition  of  MIDACS 

The  two  major  features  of  the  MIDACS  software  are  configuration  manage- 
ment and  system  simulation.  The  other  aspects  of  the  software,  such  as 
interactivity,  graphics  displays,  and  user  assistance,  are  the  "luxury 
options"  that  make  rapid  configuration  and  simulation  practical.  Figure  3-2 
illustrates  the  basic  software  concept  for  managing  system  configuration. 

The  control  Inputs  can  be  provided  by  light  pen  operations.  For  instance, 
the  data  for  the  configuration  table  ITYP  in  Figure  3-2  is  derived  from  the 
block  diagram  on  the  CRT  while  the  diagram  is  being  constructed.  Assume 
that  the  user  selects  a band-pass  filter  block  from  a menu  of  function  blocks 
displayed  on  the  screen.  Unique  numbers  identifying  the  block  type,  band- 
pass filter,  and  the  number  of  Inputs  are  inserted  in  the  current  line  of 
the  configuration  table.  Next  the  user  inserts  the  band-pass  filter  in  a 
partially  constructed  diagram,  using  light  pen  operations  to  establish  the 
input  and  output  connections.  The  program  determines  if  the  connections 
were  made  to  existing  nodes  in  the  circuit.  If  so,  pre-determined  numbers 
identifying  the  input  and  output  nodes  are  put  in  the  next  line  of  the 
configuration  table.  If  one  of  the  connections  is  floating,  a new  iden- 
tifier for  that  connection  is  inserted  in  the  table.  Finally,  the  program 
inserts  a pre-determined  number  in  the  table  which  tells  how  many  describing 
parameters  are  associated  with  this  particular  function  block.  Thus,  each 
line  of  the  configuration  table  consists  of  an  entry  whose  value  depends 
on  light  pen  operations. 

Now  the  program  solicits  the  describing  parameters  for  the  band-pass 
filter.  The  block  identifier  number  tells  the  program  what  sequence  of 
questions  to  ask  and  what  displays  to  use.  The  user's  responses  are  con- 
verted into  the  correct  numerical  parameters  and  inserted  sequentially  in 
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CONFIGURATION  MANAGEMENT 


BLOCK  TYPE 
# INPUTS 
OUTPUT  NODE 
//  PARAMETERS 

BLOCK  TYPE 
It  INPUTS 
INPUT  NODE  H 
INPUT  NODE  # 
OUTPUT  NODE 
It  PARAMETERS 

BLOCK  TYPE 


ITYP 


CDATA 


FREQUENCY 

AMPLITUDE 

OFFSET 

BAND- 

LIMITING 

JREQ_ 


CURR'"iT 

LOCATION 

POINTER 


CURRENT 

LOCATION 


BANDLIMITED 
CUTOFF  FREQ. 


TYPE  3: 
TYPE  7; 


SIGNAL  GENERATOR 
MULTIPLIER 


Figure  3-2.  Example  Showing  the  Numerical  Description 
of  a Block  Diagram. 
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a one-d Itnensional  array  CDATA.  When  all  the  iecess^ry  Information  has  been 
supplied,  the  program  updates  Its  current  line  pointers  in  arrays  ITYP  and 
CDATA  and  is  ready  to  accept  further  configuration  information  from  the 
light  pen/CRT  interactions.  When  the  operator  terminates  the  configuration 
phase,  using  a light  pen  action  or  function  key,  the  arrays  ITYP  and  CDATA 
contain  the  complete  description  of  the  circuit  block  diagram  on  the  screen, 
but  in  a form  suitable  for  input  to  the  simulation  routines.  Making  a 
permanent  copy  of  these  two  arrays  saves  the  configured  system  for  future 
study. 

The  simulation  process  is  illustrated  in  Figure  3-3.  The  user  controls 
the  simulation  process  by  specifying  the  location  in  the  block  diagram  where 
he  wants  to  study  the  signal.  He  also  specifies  the  types  of  Information 
he  wants  about  the  signal  so  that  as  blocks  of  time-sampled  waveform  data 
are  processed  through  the  system  to  the  specified  node,  the  analysis  routines 
can  perform  their  operations  on  each  output  array,  accumulating  statistics 
or  other  results  to  be  computed  and  displayed.  A simulation  controller  uses 
the  information  in  array  ITYP  to  direct  the  simulation  sequence.  The  node 
Identifiers  for  inputs  are  compared  to  the  identifiers  tagged  to  the  cur- 
rent output  arrays  to  determine  which  data  array  to  use  for  each  input. 

Then  the  block  type  Identifier  Is  used  to  call  the  appropriate  simulation 
subroutine.  The  simulation  subroutine  obtains  the  necessary  describing 
parameters  from  array  CDATA  and  proceeds  to  operate  on  the  Input  arrays 
to  produce  an  output.  The  output  array  Is  tagged  with  the  node  identifier 
from  array  ITYP,  and  the  array  HSTORY  keeps  a record  of  the  last  few  out- 
put samples  going  to  each  node.  This  is  necessary  because  the  output  array 
will  be  overwritten  several  times  as  the  data  Is  processed  through  the 
system.  On  the  next  pass  through  the  system  the  information  in  HSTORY 
Is  used  with  the  first  few  samples  of  the  input  arrays  to  maintain 
continuity  in  the  calculations. 

3 . 3 Programming  Languages  and  Operating  Systems  for  MIDACS 

Although  the  demonstration  program  discussed  in  Chapter  7 Is  written 
completely  In  FORTRAN  IV,  some  parts  of  It  could  have  been  implemented  more 
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Figure  3-3.  Diagram  of  Simulation  Process  Showing  Data  Paths. 


efficiently  at  the  assembly  level.  In  particular,  encoding  operations  on 
serial  bit  stream  data  are  well  suited  to  assembly  level  approaches.  Since 
the  C-8500  will  be  performing  most  of  the  function  simulations,  it  is  likely 
that  some  parts  of  the  MIDACS  system  will  be  designed  using  the  C-8500 's 
assembly  language  features.  The  C-8500  will  be  used  at  the  FORTRAN  level 
for  simulation  control,  mathematical  analyses  on  a data  base,  communica- 
tions with  the  satellite  graphics  system,  or  other  tasks  that  may  be 
assigned  to  it,  as  discussed  in  Section  3.4.  If  the  Digital  Equipment 
Corp.  GT-44  computer  is  used  as  the  satellite  graphics  system,  much  of 
the  satellite  software  will  be  developed  using  the  PDP-11  System  Library. 
These  facilities  were  designed  as  applications  progranming  tools,  and 
their  versatility  will  allow  a wide  range  of  features  to  be  implemented 
quickly  and  efficiently  in  the  GT-44. 

Any  applications  software  development  for  a computer  system  is  highly 
dependent  on  the  capabilities  of  the  host  operating  system.  The  operating 
system  contains  the  compilers,  editors,  linking  loader,  and  run  time  system 
handlers  which  are  necessary  for  creating,  debugging,  and  executing  assembly 
level  or  high-level  language  programs.  Experience  with  the  GT-44 's  RT-11 
operating  system  proves  that  it  satisfies  the  general  requirements  of 
versatility,  power,  and  ease-of-use.  It  will  be  quite  satisfactory  for 
developing  and  running  the  GT-44 's  portion  of  the  MIDACS  software.  Early 
software  development  efforts  for  the  host  computer  may  utilize  a system 
other  than  the  C-8500,  if  it  is  not  yet  operational.  Such  a system  might 
incorpc.rate  a time-sharing  multi-processor  environment.  If  it  can  be  used 
to  develop  standard  FORTRAN  programs,  it  should  be  adequate  for  early  to 
middle  stages  of  programming  efforts,  as  long  as  only  those  features  of 
FORTRAN  common  to  both  computers  are  used.  The  source  programs  can  then 
be  transferred  using  punched  card  decks  or  magnetic  tapes. 

3.4  Implementation  of  the  Software  Structure 

In  Section  '*.3  some  of  the  tasks  to  be  assigned  to  the  C-8500  were 
mentioned.  Task  allocation  is  part  of  the  process  of  setting  up  the  divi- 
sion of  labor  between  the  two  processors  making  up  the  MIDACS  hardware 
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ccnf igurat ion  (Figure  3-4),  This  configuration  exploits  the  advantages  of 
both  computer  systems  while  minimizing  their  disadvantages.  The  graphics 
capabilities  of  the  satellite  provide  for  fast  responses  to  the  user  while 
the  speed  and  memory  of  the  host  make  it  suitable  for  the  massive  numerical 
computations  and  manipulations  of  large  data  bases  required  for  MIDACS. 

Using  two  computers  presents  problems  involving  the  additional  hardware 
and  software  requirements,  installation  and  maintenance,  and  dealings  with 
the  manufacturers;  but  the  benefits  to  be  gained  justify  the  extra  effort. 

A programmable  satellite  system  like  the  GT-44  can  easily  handle  all 
of  the  lexical,  syntactical,  and  semantic  processing  involved  in  maintaining 
high  interactivity  with  the  user.  All  of  the  graphics  functions  and  oper- 
ations can  take  place  in  the  satellite,  thus  reducing  considerably  the 
amount  of  data  sent  over  the  communications  link.  Now  the  problem  arises 
of  how  to  divide  the  application  program  between  the  two  computers  since 
the  satellite  is  obviously  capable  of  handling  a large  share  of  the  opera- 
tions. Also,  both  computers  may  at  times  require  access  to  the  same  data. 
For  example,  the  host  may  use  a data  array  DATA  to  get  sets  of  parameters 
during  a simulation.  The  satellite  must  access  the  same  array  for  config- 
uration and  modlf Icatlon.  If  separate  copies  of  the  data  are  kept  in  each 
computer's  memory  space,  the  program  must  insure  that  the  arrays  are  syn- 
chronized, that  is,  pointers  and  values  must  be  kept  up  to  date  in  each 
computer  as  one  or  the  other  accesses  or  changes  entries  in  the  array. 

Data  accessed  frequently  by  one  processor  and  infrequently  by  the  other 
might  best  be  kept  in  the  one  accessing  it  frequently.  Then  the  communi- 
cations link  would  provide  the  access  path  for  the  other  processor.  The 
approach  taken  for  any  one  case  will  take  into  account  the  amount  of  data 
Involved,  how  often  each  computer  accesses  the  data,  and  the  effect  on 
response  time  of  the  different  approaches. 

The  subroutine  classes  shown  in  Figure  3-1  make  no  distinction  between 
the  two  processors  since  some  classes  may  be  implemented  in  the  host,  some 
in  the  satellite,  and  some  perhaps  split  between  the  two.  A communications 
protocol  would  be  set  up  to  handle  the  transfers  of  program  flow  between 
the  subroutines  in  each  processor.  For  example,  a configuration  controller 
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and  a set  of  graphics  routines  are  resident  In  the  satellite  and  allow  the 
configuration  of  a communications  system  from  a set  of  pre-deflned  elements. 

A certain  signal  from  the  user  Is  recognized  by  the  controller,  It  transfers 
data  describing  the  configuration  to  the  host,  and  Informs  the  main  control 
program  to  call  the  simulation  controller  In  the  host,  whereupon  the  system 
whose  diagram  Is  on  the  CRT  Is  modeled  and  analyzed  In  the  host. 

The  job  of  redistributing  processing  tasks  between  computers,  should 
It  be  deemed  worthwhile,  would  not  be  Impossible;  but  It  could  become  some- 
what Involved.  Brown  University  and  the  University  of  North  Carolina  have 
developed  satellite-host  graphics  systems  that  allow  a programmer  to  prac- 
tically Ignore  the  fact  that  there  are  two  computers  when  writing  programs. 
E^ch  module  or  subroutine  can  be  assigned  at  will  to  the  host  or  satellite, 
and  the  assignments  can  be  changed  without  reprogramming.  The  Interprocessor 
communications  are  taken  care  of  by  the  run-time  handlers  In  the  operating 
system  (30).  Unfortunately,  this  facility  Is  not  available  In  the  Intended 
computer  system  for  MIDACS.  However,  the  degree  of  program  shuffling  re- 
quired should  not  be  great  once  a pattern  for  distributing  the  tasks  Is 
laid  out.  Basically,  the  satellite  would  handle  all  Interactions  with  the 
user  and  create  the  resulting  set  of  data  to  be  sent  to  the  host.  It  would 
also  receive  from  the  host  data  output  by  analysis  or  simulation  routines, 
to  be  converted  Into  graphical  displays.  The  boat  would  be  concerned  pri- 
marily with  the  time-domain  processing,  the  Monte  Carlo  evaluations,  and 
other  large  scale  computational  tasks  performed  on  Its  resident  data  base 
and  Influenced  by  variables  received  from  the  satellite. 

The  schedule  for  Implementing  the  MIDACS  system  can  be  outlined  In 
general  terms.  First,  of  course,  the  hardware  facilities  must  be  opera- 
tional. This  means  that  a host  computer,  a satellite  graphics  system,  and 
a communications  link  are  configured  together  and  the  respective  operating 
systems  are  shown  to  be  functioning  properly.  Keep  In  mind  that  the  host 
will  not  necessarily  be  the  C-8500  during  the  early  phases  of  the  effort. 

Next,  a nmmur. Icatlons  protocol  Is  set  up  to  effect  transfer  of  program 
flow  bet'.'een  computers.  This  can  be  as  simple  as  using  FORTRAN  read  and 
write  statements  that  address  the  communications  link  as  a logical  unit 
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number,  and  designing  the  software  so  that  one  processor  Is  waiting  for 
data  from  the  link  (READ)  when  the  other  starts  transmitting  (WRITE). 

The  main  controller  can  then  be  Installed  in  the  host  computer  and  the 
configuration  controller  and  associated  graphics  routines  installed  in 
the  satellite.  These  programs  should  be  tested  thoroughly  before  pro- 
ceeding to  Install  the  simulation  controller  in  the  host  along  with  enough 
subfunption  simulation  routines  to  test  its  operation.  Next  a few  analysis 
routines  are  added  in  the  host  and  the  corresponding  graphical  display 
routines  incorporated  in  the  satellite.  The  working  software  now  com- 
prises a "minimum  system".  Further  development  continues  by  adding 
function  simulators,  other  analysis  routines,  and  their  associated 
graphics  and  I/O  routines.  This  schedule  provides  a methodical  approach 
for  installing  and  debugging  the  MIDACS  foundation  software,  and  it  allows 
the  designers  to  Implement  an  Initial  working  system  while  continuing  the 
software  development.  Over  the  period  of  time  devoted  to  the  effort,  the 
initial  system  matures  into  a versatile,  analytical  design  tool. 
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4.  SYSTEM  LIBRARY 


4.1  General  Element  Characteristics 

The  elements  of  the  system  library  are  mathematical  models  of 
complete  communication  systems.  Each  model  is  capable  of  evaluating 
one  or  more  of  the  performance  measures  Identified  with  the  particular 
system  of  Interest,  once  the  characterizing  parameters  have  been 
assigned  numerical  values.  Typically,  such  models  would  be  capable 
of  evaluating  measures  such  as  probability  of  bit  error,  slgnal-to-noise 
ratio,  and  signal  bandwidth;  however,  a more  complete  list  of  both 
system  parameters  and  performance  measures  Is  provided  In  Table  4-1. 

Table  4-1  should  be  viewed  as  an  Indication  of  the  broad  range  of 
possibilities  for  specification  and  evaluation,  rather  than  as  a 
limited  directory  of  parameters  and  measures  to  which  the  simulation 
approach  Is  applicable. 

It  Is  Important  to  note  that  many  of  the  system  models  do  not 
directly  account  for  channel  characteristics.  For  example,  the  signal 
attenuation  caused  by  the  channel  Is  often  not  computed  directly, 
but  It  Is  reflected  in  the  signal-to-nolse  ratio  which  is  frequently 
a parameter  In  the  mathematical  expressions  for  probability  of  bit  error. 
This  situation  Is  not  a serious  limitation  of  the  system  level  analysis, 
since  it  is  possible  to  combine  a program  which  analyzes  a given  channel 
with  a program  which  evaluates  a performance  measure  Influenced  by 
channel  characteristics. 

The  attractiveness  of  the  combined  approach  is  enhanced  by  the 
recognition  that  channel  modeling  has  received  a great  deal  of  attention, 
and  several  working  models  are  readily  available  for  use  in  a simulation 
program  [31,  page  33-4],  [32,  page  I-M] , [33],  [34],  [35],  [36].  It 
should  be  recognized  however  that  programs  of  this  type  tend  either 
to  be  large  In  size,  slow  In  computation,  and  highly  accurate,  or  moderate 
In  size,  fast  In  computation,  and  of  limited  accuracy. 
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TABLE  4-1 


Typical  System  Parameters  and  Performance  Measures 


SYSTEM 

PARAMETERS 

Data  Rate 

Tvpe  of  Encoding 

Block  Length 

Constraint  Length 

Tvpe  of  Modulation 

Levels  of  Modulation 

Transmitter  Output  Power 

Transmitting  Antenna  Type 

Type  of  Propagation  Path 

Length  of  Propagation  Path 

Frequency  of  Transmission 

Time  of  Day 

Time  of  Year 

Receiving  Antenna  Type 

Receiver  Noise  Figure 

Type  of  Demodulator 

Type  of  Decoding 

Type  of  Decision  Device 

Receiver  Bandwidth 


SYSTEM  PERFORMANCE 
MEASURES 


Waveform  Rise  Time 
Pulse  Response 
Percent  Overshoot 
Waveform  Settling  Time 
Signal  Bandwidth 
Signal  Spectrum 
Slgnal-to-Nolse  Ratio 
Probability  of  Bit  Error 
Noise  Histogram 
Decision  Variable  Histogram 
Intersymbol  Interference 
Ratio 
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4.2  Library  Elements 


A large  variety  of  coranunlcat Ion  systems  are  currently  employed 
by  the  Air  Force,  and  It  Is  anticipated  that  future  technological 
developments  will  increase  both  the  number  and  the  complexity  of  the 
systems  In  service.  This  diversity  in  form  manifests  Itself  in  several 
major  areas:  the  type  of  encoding/decoding,  the  type  of  modulation/ 

demodulation,  the  type  of  channel,  and  the  frequency  of  operation. 

Several  of  the  more  important  options  for  these  features  are  listed  In 
Table  4-2  [37],  [38],  [39]. 

The  options  identified  in  Table  4-2  were  observed  to  be  Important 
operational  characteristics  of  Air  Force  communication  systems  [37], 

[38],  and  therefore  It  Is  appropriate  that  they  appear  in  the  system 
level  models  of  the  simulation  program.  Block  diagrams  which  are 
representative  of  the  system  models  that  should  be  Included  In  the  system 
library  are  presented  In  Figures  4-1  through  4-5.  In  each  case,  the 
basic  system  has  been  identified  by  the  channel  employed,  since  this  Is 
consistent  with  common  Air  Force  practice.  It  should  also  be  noted 
that  specific  forms  have  not  been  Indicated  for  elements  such  as  encoders 
and  modulators.  This  has  been  done  to  demonstrate  the  flexibility  of 
the  representational  form.  For  example,  one  satellite  repeater  system 
may  employ  FSK  modulators/demodulators,  and  another  system  may  employ 
PSK  modulators/demodulators,  but  both  systems  can  be  described  by  the 
structure  depicted  In  Figure  4-1. 

For  a given  channel,  any  appropriate  form  of  coding,  modulation, 
demodulation,  and  decoding  may  be  used,  and  each  unique  combination  will 
require  a different  system  level  library  element.  Various  combinations 
of  channel  type  and  operating  frequency  are  also  possible,  but  only 
certain  combinations  find  practical  application.  These  combinations 
are  shown  In  Table  4-3. 
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Figure  4-1.  A Block  Diagram  of  a System  Employing  a Satellite  Repeater. 
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Figure  4-2.  A Block  Diagram  of  a System  Employing  a Line-Of-Slght  Channel. 
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Figure  4-4.  A Block  Diagram  of  a System  Employing  a Wire-Line  Channel. 
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TABLE  4-3 


Channel  and  Frequency  Combinations 


CHANNEL 

TYPE 


APPROPRIATE 
FREQUENCY  RANGE 


Satellite 

Repeater 


VHF 

UHF 

Microwave 


Line-of-Sight 


UHF 

Microwave 


Troposcatter 


Microwave 


Wireline 


Baseband 

HF 


HF 


HF 
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5.  FUNCTION  LIBRARY 


5jJ^_  General  Element  Characteristics 

The  elements  of  the  function  library  are  mathematical  models  of 
individual  functions  which  are  used  in  structuring  block  diagrams  of 
digital  communication  systems.  Typical  of  the  elements  being  considered 
would  be  a low-pass  filter  model.  The  use  of  such  elements  to  describe 
a system's  structure  is  demonstrated  in  Figure  5-1.  As  discussed  in 
Section  2,  these  models  describe  the  time  domain  relationship  between 
the  function's  input  (s)  and  output (s),  and  it  Is  this  common  input/output 
form  that  allows  the  models  to  be  connected  serially  such  that  the  output 
of  one  functional  block  becoraesL  the  input  of  another  block  in  the  system's 
structure. 

One  important  difference  between  system  and  function  level  models 
should  be  immediately  apparent.  The  system  level  models  represent  the 
combined  effects  of  many  system  functions,  and,  therefore,  it  is  necessary 
to  provide  for  the  Identification  of  the  important  features  and  parameters 
if  accuracy  is  to  be  maintained  in  the  modeling  effort.  In  contrast,  the 
function  models  generally  describe  one  very  distinct  function,  and  thus 
a relatively  small  number  of  features  or  parameters  is  associated  with 
any  one  model  element.  It  should  be  remembered,  however,  that  a realistic 
system  model  will  require  many  functional  elements,  with  the  result  being 
that  a greater  number  of  features  and  parameters  must  be  specified  at  the 
function  level  than  at  the  system  level  to  achieve  the  same  system  model. 

2 Library  Elements 

A study  of  the  block  diagram  structure  of  digital  communication 
systems  has  been  made  for  the  purpose  of  identifying  those  functions 
which  are  used  to  model  communication  systems.  As  a result  of  the  study, 
a large  number  of  functions  have  been  identified,  and  the  identified  func- 
tions have  been  grouped  into  six  categories:  A’gebralc  Operations,  Trig- 

onometric Operations,  Functional  Operators,  Logical  Operations,  Active 
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Network  Functions,  and  Passive  Network  Functions.  Notice  that  each  of 
these  categories  is  represented  in  Figure  5-1.  Algebraic  Operations  are 
represented  by  the  summing  node  and  the  mixer,  a time-domain  multiplication 
device.  The  phase  detector,  SIN(X),  performs  a trigonometric  operation; 
and  the  integrator  is  a functional  operator.  The  comparator  is  a part  of 
the  system's  decision  circuitry  and  performs  a logical  operation,  while 
the  band-pass  and  low-pass  filters  are  passive  network  functions.  Both 
the  deterministic  and  random  types  of  active  network  functions  are  a part 
of  Figure  5-1.  The  oscillator  is  a deterministic  source,  while  the  noise 
source  is  random  in  nature. 

One  additional  modeling  category  is  necessary  if  a complete  simulation 
is  to  occur:  a channel  model.  As  Indicated  in  Table  A. 2,  a variety  of 

channels  are  encountered  in  normal  Air  Force  communication  systems;  and, 
therefore,  it  is  deslrab.e  to  have  function  level  models  for  each  of  the 
important  channel  types.  One  might  initially  assume  that  the  models 
employed  for  analyzing  channels  at  the  system  level  would  be  usable  for 
the  function-level  analysis.  In  general  this  is  not  true  since  many  of 
the  channel  models  which  are  suitable  for  a system-level  analysis  calculate 
only  average  behavior,  such  as  average  attenuation.  The  function-level 
analysis  requires  that  all  evaluations  be  of  an  instantaneous  nature  in 
the  time  domain.  As  a minimum,  the  function-level  channel  model  should 
be  able  to  account  for  signal  attenuation,  noise  contributions,  signal 
dispersion,  and  multipath  effects.  The  recommended  members  of  the  six 
categories  and  certain  related  information  about  the  identified  functions 
are  presented  in  Tables  5-i,  5-2,  5-3,  5-A,  and  5-5. 


5-3 


Table  5-2 


LOGICAL  OPERATIONS 


r - 

CATEGORY 

FUNCTION 

NUMBER 

OF 

INPUTS 

NUMBER 

OF 

OUTPUTS 

LOGICAL 

OPERATIONS 

AND 

N 

1 

OR 

1 

N 

1 

NAND 

N 

1 

NOR 

N 

1 

Comparator 

2 

1 

Mod  (N)  Addition 

2 

1 

Mod  (N)  Subtraction 

2 

1 

Mod  (N)  Multiplication 

2 

1 

Mod  (N)  Division 

2 

1 

Flip-Flop 

1 

2 

Shift  Register 

1 

N 
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Table  5-3 


ACTIVE  AND  PASSIVE  NETWORK  FUNCTIONS 


CATEGORY 

FUNCTION 

TYPICAL  PARAMETERS 

Slnewave 

Generator 

Peak  Amplitude,  Frequency, 
Phase,  D.C.  Offset 

Squarewave 

Generator 

Amplitude,  Period, 
D.C.  Offset 

1 

Ramp 

Generator 

Amplitude,  Period, 
D.C.  Offset 

ACTIVE 

NETWORK 

Pulse 

Generator 

Amplitude,  Duration, 
D.C.  Offset 

FUNCTIONS 

Gaussian  Noise 
Generator 

Mean,  Variance 

j 

Uniform  Noise 
Generator 

Range 

1 

1 

Rayleigh  Noise 
Generator 

Mean,  Variance 

1 

Phase  Shifter 

Phase  Shift 

Low-pass 

Filter 

Type,  Order,  Cutoff  Frequency 

PASSIVE 

NETWORK 

FUNCTIONS 

Band-pass 

Filter 

Type,  Order,  Center  Frequency, 
Bandwidth 

High-pass 

Filter 

Type,  Order,  Corner  Frequency 

Notch 

Filter 

Type,  Order,  Center  Frequency, 
Notch  Depth 

Voltage  Controlled 
Oscillator 

Output  Amplitude,  Voltage-to- 
Frequency  Conversion  Constant 

1 
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Table  5-4 


PASSIVE  NETWORK  FUNCTIONS 


CATEGORY 


FUNCTION 


TYPICAL  PARAMETERS 


n-th  Law 
Device 


Time  Delay 


Hard 

Limiter 


Order  of  Non-Linearity 


Soft 

Limiter 

Phase 

Detector 


Slope,  Breakpoints 


Frequency 

Multiplier 


Order  of  Frequency 
Multiplication 


PASSIVE 

NETWORK 

FUNCTIONS 


Time 

Multiplexer 

Frequency 
Mult Iplexer 


Number  of  Inputs, 
Sampline  Rate 


Output  Frequencies 


Amplitude 

Modulator 


Output  Power,  Number  of  States 


Frequency 

Modulator 


Output  Power,  Number  of  States, 
Deviation  Constant 


Phase 

Modulator 


Output  Power,  Number  of  States, 
Deviation  Constant 


Differential  Phase 
Modulator 

Coherent  AM 
Detector 


Output  Power,  Deviation 
Constant 


Table  5-5 

PASSIVE  NETWORK  FUNCTIONS 


_ __  1 

CATEGORY 

FUNCTION 

TYPICAL  PARAMETERS 

PASSIVE 

NETWORK 

FUNCTIONS 

Coherent  FM 
Detector 

Number  of  Tones,  Tone 
Frequencies 

Non-Coherent  FM 
Detector 

Number  of  Tones,  Tone 
Frequenc les 

Coherent  PM 
Detector 

Number  of  Phase  States 

Differential  PM 
Detector 

Bit  Interval 

Sanpler 

Sampling  Rate, 
Dynamic  Range 

Hold  Device 

Order  of  Hold, 
Sampling  Rate 

Quantizer 

Number  of  Levels, 
Dynamic  Range 

Compressor 

Regions  of  Compression, 
Amount  of  Compression 

Expander 

Regions  of  Expansion, 
Amount  of  Expansion 

Block  Encoder 

Type  of  Code,  Block 
Length,  Code  Rate 

Convolution 

Encoder 

Constraint  Length, 
Code  Rate 

Block  Decoder 

Type  ul  Code,  Block 
Length,  Code  Rate 

Convolution 

Decoder 

Constraint  Length, 
Code  Rate 

Gain  Sensitivity 
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6.  HARDWARE  REQUIREMENTS 


b.l  Major  Hardware  Items 

The  major  hardware  components  envisioned  for  the  implementation  of 
MIDACS  are  presented  in  Figure  6-1.  They  include  a graphics  terminal, 
an  interface  unit,  and  a host  computer.  Present  plans  call  for  a Digital 
Equipment  Corporation  CT-44  to  be  used  as  the  graphics  terminal  and  a 
Collins  C8500  to  serve  as  the  host  computer.  The  details  of  the  inter- 
face unit  for  the  identified  terminal-computer  combination  are  provided 
in  Figures  6-2  and  6-3.  The  basis  for  the  indicated  structures  is  mate- 
rial prepared  by  RADC  [40,  page  11]  and  the  equipment  manufacturers  [41, 
page  6,  21] , [42,  page  2] . 

An  alternate  configuration  of  the  host  computer  and  the  graphics 
terminal  has  been  identified.  In  this  configuration  the  host  computer 
operates  under  DOSS  and  the  peripheral  interfaces  are  connected  to  the 
host's  record  channel.  The  claimed  advantage  for  this  arrangement  is 
that  it  provides  FORTRAN  support  and  that  the  data  transfer  rate  between 
the  host  computer  and  the  graphics  terminal  will  be  higher  than  that  achiev- 
able with  the  multiplex  loop  arrangement.  It  should  be  noted  that  the  latter 
advantage  will  not  significantly  enhance  the  speed  of  program  execution. 

6._^  Hardware  Characteristics 

The  hardware  interconnections  indicated  in  Figures  6-2  and  6-3  are 
for  the  specific  devices  Identified  above  and  do  little  toward  identifying 
the  necessary  or  desirable  operational  characteristics  acl  'eved  by  the 
particular  hardware  elements.  Those  characteristics  will  now  be  discussed 
for  each  of  the  three  major  hardware  components. 

The  Interactive  graphics  aspect  of  MIDACS  is  central  to  the  overall 
simulation  approach,  and  therefore,  the  operational  characteristics  of 
tlie  graphics  terminal  are  of  great  Importance.  For  the  simulation  effort 
to  be  carried  out  in  a manner  consistent  with  the  current  MIDACS  concept, 
it  Is  necessary  that  the  graphics  terminal  employed  have  the  following 
features:  1.  A light  pen,  2.  A graphics  output  capability,  3.  A graphics 

input  capability,  and  4.  A communications  handler  for  conversing  with  the 
host  computer.  Features  which  are  desirable  but  not  considered  to  be 
absolutely  necessary  are: 
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Figure  6-2.  The  C8500  Interface  Scheme. 
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Figure  6-3.  The  Interface  Details  For  The  C8500  and  the  GT-44. 
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1.  Local  memory, 

2.  Local  mass  storage, 

3.  A resident  graphics  support  package,  and 

4.  System  software  for  an  Intelligent  terminal  mode  of  operation. 

Consider  those  features  Indicated  above  as  being  necessary  for  the 
graphics  terminal.  The  light  pen  Is  the  means  by  which  the  program  user 
will  Interact  with  the  simulation  software.  Questions  posed  by  the 
control  program  will  be  answered  and  exercise  options  will  be  Indicated 
by  pointing  a light  pen  to  the  appropriate  screen  location.  As  such, 
the  light  pen  Is  a part  of  the  graphical  Input  capability  of  the  program, 
but  Its  potential  In  this  area  may  be  greatly  Increased  by  using  graphical 
number  line  techniques  so  that  quantitative  data  may  be  entered  using 
the  light  pen. 

In  the  present  context,  graphical  output  is  interpreted  to  include 
both  the  structural  block  diagrams  generated  in  the  process  of  modeling 
a system  and  the  graphs  of  data  generated  In  the  analysis  of  those 
systems.  Aa  described  in  Section  2,  the  block  diagram  has  been  chosen 
as  the  means  by  which  the  analyst  will  define  the  structure  of  the  system 
he  wishes  to  study.  It  Is  Important,  therefore,  for  a means  to  be 
available  to  display  the  block  diagram  of  the  system,  and  the  graphics 
terminal  has  been  chosen  as  the  display  medium  because  of  Its  speed 
and  flexibility. 

There  are  two  basic  forms  which  the  graphics  terminal  can  assume.  It 
can  be  a slave  terminal  to  the  host  computer  and  have  no  processing 
capabilities  of  Its  own,  or  It  can  be  an  Intelligent  terminal  capable 
of  expediting  the  overall  simulation  effort.  In  either  case  It  Is 
mandatory  that  a communications  handler  for  processing  data  to  be 
displayed  by  or  Input  through  the  graphics  terminal  be  available. 

The  four  features  Identified  as  being  desirable  are  oriented 
toward  making  the  graphics  terminal  an  Intelligent  terminal.  This  Is 
deemed  to  be  desirable  since  It  would  result  In  a more  efficient  allocation 
of  computational  resources  than  Is  possible  when  the  graphics  terminal  Is  a 
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slave  unit.  The  use  of  an  Intelligent  terminal  will  allow  the  generation 
of  graphical  display  Information  and  numerical  computation  to  occur 
In  parallel,  and  thus  the  overall  processing  time  can  be  reduced  when 
compared  to  the  time  required  for  processing  In  a strictly  serial  form. 

The  user  will  perceive  the  difference  as  a higher  degree  of  interactivity 
for  the  system  using  the  Intelligent  terminal. 

The  second  Important  hardware  Item  Is  the  host  computer,  and  In 
order  to  Implement  the  simulation  program  as  currently  envisioned, 
the  host  computer  should  possess  the  following: 

1.  A system  softvare  package  capable  of  efficiently  operating  the 
host  computer, 

2.  A FORTRAN  compiler  complete  with  an  extensive  library  of  math- 
ematical functions, 

3.  A graphics  support  package  designed  to  operate  In  the  host 
computer's  environment  and  drive  the  associated  graphics  terminal, 

4.  Sufficient  memory  size  to  allow  the  handling  of  moderately 
complex  computations  efficiently, 

5.  Sufficient  mass  storage  to  allow  the  accumulation  of  sizable 
data  arrays  and  the  retention  of  a large  number  of  graphical 
routines,  and 

6.  A high  speed  central  processing  unit. 

It  Is  considered  neither  necessary  nor  desirable  that  the  software 
development  phase  of  MIDACS  include  the  development  of  the  basic 
system  software  for  the  host  computer.  This  Is  In  recognition  of  the 
fact  that  most  computer  manufacturers  have  expended  a great  deal  of 
time  and  money  to  develop  such  software  packages  and  that  comparable 
expenditures  would  be  needed  on  the  part  of  an  Independent  developer 
to  produce  an  alternate  package.  This  principle  does  not  preclude 
the  limited  modification  of  an  existing  software  package  for  the  purpose 
of  optimizing  computer  performance  In  the  simulation  environment. 
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There  are  certain  advantages  In  using  a standard  language  such  as 
FORTRAN,  but  as  was  pointed  out  In  Section  3,  this  restriction  would 
cause  certain  models  to  be  very  Inefficient  In  program  size  and  execution 
time.  Nevertheless,  if  the  programming  is  to  be  carried  out  In  FORTRAN, 

It  Is  necessary  that  the  host  computer  have  a FORTRAN  compiler,  and 
furthermore,  since  the  simulation  program  will  perform  many  complicated 
computations.  It  Is  desirable  that  the  FORTRAN  version  employed  contain 
an  extensive  library  of  mathematical  functions.  A list  of  the  more 
Important  members  of  the  mathematical  library  Is  provided  in  Table  6-1. 

The  association  of  the  graphics  support  package  with  the  host 
computer  rather  than  with  the  graphics  terminal  Indicates  the  possibility 
of  using  a slave  terminal,  but  this  is  not  the  recommended  approach. 

On  the  grounds  of  processing  speed  and  flexibility,  the  use  of  an  Intelligent 
terminal  which  handles  all  graphical  interactions  Is  recommended.  In 
either  case,  a graphics  support  package  Is  necessary,  and  the  package 
should  allow  the  development  of  graphics  routines  by  commands  compatible 
with  the  FORTRAN  language  [43]. 

The  amount  of  memory  space  required  to  accommodate  a large  simulation 
program  Is  difficult  to  approximate  In  advance;  however,  the  development 
of  t^  demonstration  program  described  in  Section  7 has  provided  a 
sound  baals  for  saying  that  significantly  more  than  IGK  of  memory  would 
be  necessary.  Current  estimates  Indicate  that  the  64K  memory  available 
in  the  C8500  will  be  adequate  for  the  development  and  operation  of  a 
simulation  program  of  moderate  size;  however,  based  upon  the  experience 
gained  In  developing  the  demonstration  program,  the  16K  memory  currently 
available  In  the  GT-44  owned  by  DICEF  Is  Inadequate  for  extensive  graphics 
development.  This  latter  observation  pertains  to  the  use  of  the  GT-44 
as  an  Intelligent  terminal. 

The  availability  of  mass  storage  Is  Important  since  It  Is  anticipated 
that  many  of  the  graphical  displays  used  In  a large  scale  simulation 
program  would  be  generated  during  program  development  and  would  occupy 
memory  space  only  when  specifically  called  upon  by  the  user.  Also,  It 
has  been  pointed  out  In  Section  2 that  the  time  domain  analysis  will 
Involve  the  generation  of  large  data  arrays  which  are  most  efficiently 
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Table  6-1 


FUNCTIONS  OF  THE 

MATHEMATICAL  LIBRARY 

Exponential 

Hyperbolic  Tangent 

Natural  Logarithm 

Hyperbolic  Sine 

Common  Logarithm 

Hyperbolic  Cosine 

Arcsine 

Error  Function 

Arccosine 

Gamma  Function 

Arctangent 

Modular  Arithmetic 

Sine 

Absolute  Value 

Cosine 

Truncation 

Tangent 

Largest  Value 

Square  Root 

Smallest  Value 

Complex  Arithmetic 

stored  in  mass  storage  devices  such  as  disks,  drums,  or  magnetic  tapes. 
The  one  disc  and  six  magnetic  tape  units  [40,  pages  18,  20]  associated 
with  the  C8500  are  judged  to  be  more  than  sufficient  for  the  anticipated 
needs.  If  the  Intelligent  terminal  mode  of  operation  Is  selected,  the 
two  disk  units  which  are  presently  tied  to  the  GT-44  will  provide  a 
more  than  adequate  mass  storage  facility  for  the  graphics. 

The  need  for  a high  speed  central  processing  unit  Is  best 
justified  on  the  grounds  of  the  number  and  complexity  of  the  calculations 
to  be  performed.  Some  Idea  of  the  number  of  evaluations  to  be  performed 
for  a single  functional  block  In  a system  block  diagram  may  be  obtained 
from  the  discussion  In  Section  2.3,  and  It  should  be  realized  that, 
for  each  output  data  point  evaluated,  many  processing  cycles  are  required. 

The  final  hardware  Item  to  be  discussed  Is  the  Interface  unit.  In 
the  traditional  fashion,  the  Interface  unit  Is  Intended  to  provide  a 
link  between  the  host  computer  and  Its  peripherals  such  as  a printer. 

In  the  current  MIDACS  formulations,  the  Interface  will  additionally  be 
required  to  provide  the  link  to  the  graphics  terminal.  For  the  situation 
where  the  host  computer  Is  the  C8500  and  the  graphics  terminal  Is  a 
GT-44,  the  details  of  the  Interface  connection  are  provided  In  Figure  6-3. 
One  other  Interface  connection  which  Is  desirable  Is  Indicated  In  Figure 
6-2:  the  C8500  to  a remote  programming  unit  Interface.  The  purpose 

of  this  connection  Is  to  allow  the  organization  doing  the  MIDACS 
software  development,  assumed  to  be  at  a remote  location,  access  to  the 
C8500.  This  Is  particularly  Important  when  one  realizes  that  the  C8500 
system  Is  not  In  wide  use  and  that  very  few  organizations  would  have  the 
system  available  for  on-slte  program  development. 
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7.  THE  DEMONSTRATION  PROGRAM 


7.1  Illustrating  the  Concepts 

The  MIDACS  demonstration  program  was  designed  to  Illustrate  many  of 
the  concepts  discussed  in  the  Interim  Report  and  elsei4iere  in  this  report. 

It  shows  the  types  of  features  which  can  be  incorporated  in  a fully  developed 
interactive  modeling  system  and  provides  a means  for  evaluating  the  relative 
merits  of  the  various  concepts.  The  demonstration  highlights  the  following 
features  of  the  interactive  modeling  system:  (1)  user-computer  interactions 

are  tailored  for  both  experienced  and  inexperienced  users,  (2)  the  light  pen 
is  used  to  direct  program  flow,  (3)  the  keyboard  is  used  to  direct  program 
flow  and  input  data,  (4)  two  levels  of  communications  analysis,  system  and 
function,  are  available,  (5)  modeling  flexibility  allows  the  user  some 
latitude  in  his  decisions,  (6)  built-in  error  checking  sequences  prevent 
mistakes,  and  (7)  both  CRT  graphics  and  teletype  style  outputs  present 
calculated  results  of  analyses.  Each  of  these  concepts  along  with  an  exam- 
ple (where  available)  extracted  from  a demonstration  run  is  discussed  in 
more  detail  below. 

Three  types  of  user-computer  interactions  take  place  in  the  demonstra- 
tion program.  At  many  points  in  the  program  the  computer  queries  the  user 
for  a particular  piece  of  information  and  waits  for  the  appropriate  response, 
as  shown  in  Figure  7-1.  This  method  of  prompting  the  user  for  necessary 
information  is  suitable  for  the  inexperienced  user  who  is  not  always  sure 
about  what  he  should  do  next  in  exercising  the  system.  At  other  places 
in  the  program  the  computer  merely  indicates  that  it  is  waiting 
for  input  by  Issuing  a prompting  character.  Here  the  user  must  decide 
what  course  of  action  to  pursue  next,  and  he  uses  a pre-deflned  command 
to  direct  the  program  flow.  An  experienced  user  who  is  familiar  with  the 
command  structure  can  use  this  method  of  interaction  to  rapidly  formulate 
and  evaluate  a problem.  In  the  example  of  Figure  7-2,  the  user  has  spec- 
ified a signal  generator  and  its  characteristics,  exercised  the  signal 
generator,  and  generated  a graphical  output  using  only  three  command  Inputs. 
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MIDACS  DEMONSTRATION  RROORAN 
PROJECT  A-1750  JULYtl976 


TO  SKIP  INTRO»  TYPE  '8'  AND  <CR> 
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ARE  YOU  ON  A GT-44  SYSTEMT  ANSWER  YES  OR  NO  USING  THE  KEYBOARD, 

Y 

DO  YOU  NEED  ASSISTANCE  IN  USING  MIDACST 
ANSWER  YES  OR  NO  AS  BEFORE. 

Y 


Figure  7-1.  Example  Run  Showing  Queriee  and  Dear  Reaponaes. 
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Figure  7-2.  Ueer-Conputcr  Interactione  and  Reaulta. 
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Finally  the  computer  can  output,  at  the  user's  option,  Informative  text 
describing  the  upcoming  parts  of  the  program  as  shown  In  Figure  7-3.  This 
convenient  method  of  system  documentation  eliminates  the  need  for  thumbing 
through  the  pages  of  a reference  manual  to  get  clarification  on  certain 
aspects  of  the  system.  The  user  does  not  have  to  get  up  from  the  session 
or  have  his  attention  diverted  needlessly. 

Light  pen  Interactions  provide  a fast,  efficient  method  of  control 
since  the  user  does  not  have  to  divert  his  attention  from  the  display  screen. 
The  light  pen  operations  demonstrated  involve  primarily  the  control  of  pro- 
gram flow  by  selecting  Items  In  a menu  list.  The  menu  list  provides  the 
names  of  nine  types  of  communications  systems  from  which  the  user  chooses 
the  system  of  Interest.  Depending  on  the  choice  made,  the  computer  trans- 
fers control  to  the  appropriate  sequence  for  displaying  the  system  diagram 
and  performing  the  analysis.  The  light  pen  Is  also  used  to  respond  to 
queries  by  selecting  one  of  the  appropriate  responses,  'YES'  or  'NO', 
displayed  on  the  screen. 

The  keyboard  Is  used  for  both  data  entry  and  program  control.  As 
described  above,  the  computer  either  queries  the  user  for  Inputs  or  It 
solicits  command  Inputs  using  a prompting  character.  The  command  language 
format  allows  the  user  some  freedom  of  direction  In  exercising  the  system; 
that  Is,  the  command  Inputs  do  not  have  to  be  In  any  particular  order.  In 
the  example  run  of  Figure  7-4  the  user  has  given  the  'CASK'  command  to 
Initiate  the  system  level  analysis  of  a Coherent  ASK  system.  Upon  receiving 
the  '/'  prompting  character,  he  uses  the  'OLD'  command  to  retrieve  from 
permanent  storage  a set  of  system  parameters.  With  the  'LIST'  and  'CHANGE' 
commands  he  edits  the  set  of  parameters  and  then  makes  a permanent  copy  of 
the  new  data  with  the  'SAVE'  command. 

The  two  levels  of  analysis  available  in  the  demonstration  are  referred 
to  as  the  function  level  and  the  system  level,  and  sample  runs  of  each  are 
Illustrated  in  Figures  7-2  and  7-4,  respectively.  At  the  function  level 
the  user  can  configure  the  functional  elements  of  a system  using  the  com- 
mand language  format.  He  may  also  alter  the  parameters  associated  with 
any  element  of  the  configured  system,  as  shown  in  Figure  7-5.  This  facility 


7-4 


THERE  ARE  CURRENTLY  TWO  TYRES  OF  ANALYSIS  IN  THE 
MIDACS  RROGRAM.  IN  THE  SYSTEM  LEVEL  THE  SYSTEM  DIAGRAM 
IS  ALREADY  SPECIFIED  AND  THE  PARAMETERS  OF  INTEREST  ARE  STUDIED. 
AT  THE  SUDFUNCTION  LEVEL  THE  USER  CONSTRUCTS  A SYSTEM  OR 
PARTIAL  SYSTEM  FROM  A SET  OF  SUBFUNCTION  BLOCKS. 


YOU  SHOULD  NOW  USE  THE  LIGHT  PEN  TO  SELECT  WHICH  TYPE 
OF  ANALYSIS  YOU  WANT.  THERE  WILL  BE  A TIME  DELAY  BEFORE 
THE  LIST  APPEARS  ON  THE  SCREEN.  A CTRL  C WILL  ALWAYS  TERMINATE 
THE  PROGRAM  EXECUTION 

PAUSE  " TRY  RE  OR  RSU  TO  CONT 


Figure  7-3.  Sample  of  Text  Information  Available  to  User 
as  Result  of  "Yes"  Response  to  Last  Question 
In  Figure  7-1. 
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Figure  7-4.  Sample  Run  Illustrating  Some  System  Level 
Commands  and  Their  Results. 
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7 10DIFY,  1 

atOCX  1 IS  A SIGMAL  GEME^ATO^ 

1.  TY?E»  3 C 3*3  IME*  l=3a'JA1E  WAVE  ) 

2.  A1PLITUJE-  .2J3JE*3l  73LTS 

3.  F3E5UEMCY-  .1333E+3A  HI 

4.  DC  OFFSET*  3.  VOLTS 

5.  SAMPLES  PE3  PE^^IOD*  23 
DO  YOU  WAVT  TO  MA'<E  CHANGES? 

7 Y 
7 1.1 

1.  TYPE-  1 < 3-SIME#  l-SJUAHE  WAVE  ) 

2.  A1PLITUDE-  .2333E+31  VOLTS 

3.  FIEIUE'JCY-  . 1333E>34  ill 

4.  DC  OFFSET-  3.  VOLTS 

5.  SA1PLES  PEA  PEAIOD-  23 
DO  YOU  UA.MT  TO  'lAKE  CHANGES? 

7 NO 

« 

7 LPF. 1. I 503 

* 

7 MODIFY. 2 

BLOCH  2 IS  A LOW  PASS  FILTER 

1.  TYPE-  I < I-RC  LPF.  2-2ND  ORDER  BUTTERWORTH  ) 

2.  CORNER  FREQUENCY-  . 1533E4-34  HE 
DO  YOU  WANT  TO  MAHE  CHANGES? 

7 NO 


Figure  7-5.  Editing  Function  Parameters. 
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7 SAVE 

INVALID  COMMAND  IN  SUBFUNCTION  ANALYSIS 

* 

7 SMPHLD 

SORRY.  THAT  SUBROUTINE  HAS  NOT  BEEN  WRITTEN  YET 

« 

7 BLURP 

UNDEFINED  STATEMENT 

* 

7 END  OF  JOB 

.437  CP  SECONDS  EXECUTION  TIME 


Figure  7-6.  Sample  Error  Messages  at  Function  Level. 
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as  well  as  the  corresponding  facility  for  the  system  level  analysis  (Figure 
7-4)  contribute  to  the  flexibility  of  the  modeling  structure.  The  system 
level  analysis  is  based  on  generic  types  of  systems  and  uses  a set  of  param- 
eters describing  the  characteristics  of  the  system  as  a whole  rather  than 
each  element  comprising  the  system.  This  is  readily  seen  by  comparing  the 
parameter  lists  in  Figures  7-A  and  7-5.  By  providing  these  two  approaches 
to  modeling  communications  systems,  the  MIDACS  program  lends  Itself  well 
to  more  types  of  problem  solving  activities. 

Error-checking  sequences  are  another  feature  of  the  demonstration  pro- 
gram. In  Figure  7-6  we  see  that  the  command  decoder  checks  for  mistakes 
at  the  keyboard  and  outputs  an  appropriate  diagnostic  message.  Program 
execution  is  not  affected;  and  as  soon  as  a valid  input  is  received,  the 
program  continues.  In  the  example  the  ’END  OF  JOB'  command  terminated  the 
run  and  returned  control  to  the  host  operating  system.  Similar  diagnostics 
exist  for  parameter  entry  and  system  level  commands  as  well,  but  it  must  be 
remembered  that  this  facility  is  not  completely  developed  in  the  demonstra- 
tion package.  Some  entry  errors  may  cause  the  operating  system  to  terminate 
the  run.  However,  in  a fully  developed  modeling  system  the  error  checking 
facilities  would  be  designed  to  account  for  all  foreseeable  entry  mistakes 
or  Illogical  sequences  that  may  be  input  by  the  user  in  attempting  to  use 
the  system. 

Graphical  outputs,  where  feasible,  provide  the  user  a means  of  quickly 
evaluating  the  performance  measures  and  other  characteristics  that  he  is 
studying.  The  analysis  portions  of  the  demonstration  Include  routines  for 
formatting  the  output  data  for  CRT  graphical  display  or  teletype  style  hard 
copy.  Figure  7-1  includes  a teletype  plot  of  the  signal  generator  output. 

In  the  demonstration  all  time  domain  waveform  plots  are  done  on  the  tele- 
type only.  The  blt-error-rate  curves  are  generated  only  on  the  CRT  display 
and  utilize  permanently  stored  displays  to  generate  the  coordinate  axes 
and  text  labeling.  Having  both  types  of  output  allows  the  user  to  get 
results  rapidly  from  the  CRT  display  and  get  permanent  records  from  the 
teletype  terminal  for  reports  or  later  reference. 
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7.2  Software  Approach  for  the  Demonstration 


Although  the  demonstration  was  destined  to  be  run  on  a Digital  Equip- 
ment Corp.  GT-A4  system,  the  initial  stages  of  program  development  were 
conducted  using  the  Georgia  Tech  campus  computer,  the  Control  Data  Corp. 

CYBER  74.  The  programs  were  later  transferred  to  a GT-44  system  for 
further  development  and  for  adaptation  to  the  restricted  working  memory 
space.  The  multi-region  overlay  facility  of  the  RT-11  operating  system 
was  an  invaluable  aid  to  Implementing  the  demonstration  package,  in  the 
GT-44  environment. 

An  overlay  system  consists  of  a root  segment,  memory-resident  overlay 
regions,  and  the  overlay  segments  stored  on  the  mass  storage  device  (disk, 
tape,  etc.).  The  root  segment  contains  the  main  program,  common  blocks, 
and  transfer  addresses.  It  is  always  in  memory  during  a run  and  is  never 
overlaid. 

An  overlay  region  is  an  area  of  memory  reserved  at  run  time  to  be 
shared  by  two  or  more  overlay  segments.  A separate  area  of  memory  is 
reserved  for  each  region  to  which  segments  have  been  assigned.  At  run 
time  the  overlay  handler  brings  the  segments  into  memory  as  they  are  needed. 

In  order  to  use  the  overlay  facility,  certain  rules  were  observed  when 
structuring  the  program.  These  rules  are  given  in  Chapter  6 of  the  RT-11 
System  Reference  Manual  [44]. 

A three  region  overlay  structure  was  used  to  Implement  the  software 
in  the  16K  environment.  The  overlay  structure  generally  follows  the  hier- 
archical nature  of  the  program  flow,  as  illustrated  in  Figures  7-7  through 
7-12.  The  overall  control  program  resides  permanently  in  the  root  segment 
and  can  access  any  subroutine  in  any  overlay  segment.  It  primarily  directs 
program  flow  to  one  of  the  four  secondary  controlling  programs  which  share 
the  first  overlay  region,  as  shown  in  Figure  7-7.  The  general  text  infor- 
mation is  allocated  to  various  subroutines  in  both  the  first  and  second 
overlay  regions. 

The  subfunction  processing  controller  directs  the  simulation  of  the 
configured  subfunction  model  by  swapping  the  subfunction  simulation  routines 
into  the  second  overlay  region  in  the  proper  sequence,  as  shown  in  Figure  7-8. 
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MIDACS  DEMONSTRATION 


Figure  7-7. 


Root  Segment  and  Region  1 Overlays  1 through  4. 


Figure  7-8.  Function  Elemente  In  the  Overlay  Structure. 
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Figure  7-10.  Old  Version  System  Level  Package. 


7-13 


Figure  7-11.  New  Version  System  Level  Package  As  Used  In 
MIDSYS  (see  Appendix  C) . 


GENERAL 
INFO  (TEXT) 


Figure  7-12.  Structure  for  Text  and  Graphics  I/O 
for  Inexperienced  Users. 


The  actual  operation  of  this  controller,  PRCTRL,  is  flow  charted  in  Appendix 
A on  page  A-81.  Similarly,  the  other  secondary  controllers  operate  by  calling 
routines  into  the  secondary  overlay  region,  as  shown  in  Figures  7-9  through  7-12. 

There  are  a few  cases  where  a region  1 routine  calls  a subroutine  in 
another  region  1 segment.  In  these  cases  the  routine  uses  a pair  of  control 
variables  to  direct  the  primary  controller  in  the  root  segment  to  call  the 
appropriate  routine.  The  called  routine  will  in  turn  set  the  control  vari- 
ables so  that  the  original  calling  routine  can  be  re-entered  at  the  correct 
location.  This  indirect  calling  process  overcomes  one  of  the  restrictions 
of  the  overlay  environment  where  a routine  in  one  segment  may  not  call  a 
routine  in  another  segment  sharing  the  same  region. 

Several  routines  and  function  subprograms  called  by  routines  in 
region  2 are  assigned  to  a third  overlay  region.  Most  routines  in  region 
3 are  mathematical  algorithms,  such  as  the  Marcum  Q-functlon  evaluation. 

There  are  a few  graphics  related  routines  that  set  up  temporary  display 
files  in  region  3. 

The  three  region  structure  and  a high  degree  of  program  segmentation 
resulted  in  a program  that  would  run  in  the  available  machine,  although 
there  was  not  enough  free  memory  left  to  permit  the  use  of  the  GT  scrolling 
feature  for  displaying  teletype  output  on  the  CRT  screen.  In  order  to 
demonstrate  this  feature  a subset  of  the  demonstration  subroutines  was 
pulled  out  and  a new  program  created  that  performs  the  system  level  analysis 
only.  Additional  details  on  this  program  can  be  found  in  Appendix  C. 

7.3  Evaluation  of  the  Demonstration 

The  demonstration  program  provided  a means  for  evaluating  the  appli- 
cability of  a variety  of  concepts  to  MIDACS.  Those  concepts  that  worked 
out  well  Include:  the  high  degree  of  user-computer  interaction,  the  use 

of  the  light  pen  for  program  control,  the  function  level  and  system  level 
approaches  to  analysis,  modeling  flexibility,  built-in  error  checking,  and 
CRT  graphics  I/O.  Each  of  these  features  is  highly  desirable  for  MIDACS 
and  would,  of  course,  be  Implemented  on  a large  scale  in  any  future  program. 
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Two  concepts  that  did  not  work  out  well  and  should  be  reconsidered 
as  to  their  importance  were  the  use  of  the  keyboard  and  the  use  of  the 
teletype  style  graphical  outputs.  The  idea  of  using  a command  language 
is  very  applicable  to  an  interactive  system,  especially  for  the  experi- 
enced user.  However,  it  would  be  better  to  implement  the  command  forms 
using  the  CRT/light  pen  combination.  This  eliminates  a lot  of  activity 
at  the  keyboard  and  speeds  up  the  operation  of  the  system.  Also,  the  user 
would  no  longer  be  required  to  remember  the  formats  for  the  various  com- 
mands. 

The  teletype  plots  can  take  up  a significant  amount  of  time,  time  in 
which  the  user  can  lose  a train  of  thought  or  otherwise  become  distracted. 
Probably  it  would  be  a good  idea  to  have  this  capability  in  MIDACS,  but 
only  as  an  option  for  the  user  to  take  advantage  of  when  necessary.  In 
general,  the  demonstration  program  showed  that  operations  involving  the 
teletype  terminal  should  be  minimized  by  structuring  the  program  to  utilize 
the  CRT  and  light  pen  features  to  the  fullest  practical  extent.  The  tele- 
type might  still  be  useful  as  a function  keyboard  where  a single  keystroke 
would  result  in  some  action,  as  does  the  function  keyboard  for  the  OLPARS 
facility  at  RADC. 
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8.  RECCMMENDATIONS 


8.1  Applications  Survey 

The  Initial  phase  of  the  MIDACS  program  has  been  directed  toward 
Identifying  and  developing  the  basic  concepts  Involved  In  an  Interactive 
simulation  effort.  It  Is  anticipated  that  any  future  efforts  on  the 
MIDACS  program  will  be  oriented  toward  the  application  of  the  basic 
concepts  to  produce  a working  simulation  program.  The  value  of  the 
Implemented  program  will  be  strongly  tied  to  the  degree  to  which  that 
program  reflects  the  Interests  and  needs  of  Its  prospective  users.  It 
Is  therefore  reconmended  that  a survey  of  prospective  users  be  conducted 
for  the  purpose  of  determining  what  they  would  like  to  see  In  the  simula- 
tion program. 

In  the  survey,  the  prospective  users  should  Identify  what  system 
types  are  of  the  greatest  Interest  In  their  work.  This  Identification 
should  be  as  detailed  as  possible,  and  the  following  feati^es  should 
certainly  be  Identified: 

1.  Name  normally  used  to  describe  the  system, 

2.  Type  of  data  encoding  employed  (If  any), 

3.  Type  of  channel  encoding  (modulation)  employed, 

4.  Type  of  transmitter  antenna  used  (If  sny), 

5.  Type  of  channel, 

6.  Type  of  receiver  antenna  used  (If  any), 

7.  Type  of  receiver  detection,  and 

8.  Type  of  decision  circuitry. 

The  Information  acquired  on  Items  two  through  eight  would  provide 
a good  Indication  of  the  types  of  systems  and  functions  that  should  be 
Incorporated  Into  the  simulation  program  In  Its  early  phases.  Item  one 
may  at  first  seem  trivial,  but  It  would  provide  the  basis  for  a program 
terminology  which  would  be  In  close  agreement  with  the  already  existing 
system  descriptions  used  by  military  personnel. 
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8.2  Modeling  Approach 


The  system  level  models  for  MIDACS  should  be  analytical  expressions 
describing  a single  performance  measure  In  terms  of  the  important 
system  parameters.  Closed  form  representations  are  highly  recommended, 
but  It  is  recognized  that  there  are  many  situations  in  which  the  only 
representations  that  currently  exist  are  the  result  of  the  application 
of  infinite  series  techniques.  In  such  situations  every  effort  should 
be  made  to  use  a truncated  series  which  is  consistent  with  the  desired 
system  level  attributes  of  fast  evaluation  and  high  accuracy. 

The  function  level  models  are  Intended  to  be  used  as  actual 
simulation  elements,  and  therefore,  the  individual  models  must  produce 
one  or  more  simulated  outputs  in  response  to  the  simulated  Inputs. 
Commonly,  both  inputs  and  outputs  are  time-dependent  functions;  thus, 
a time-domain  representation  of  the  functional  blocks  is  recommended. 

It  is  also  recognized  that  there  are  some  circumstances  where  frequency- 
domain  information  is  very  useful,  and  a fast  Fourier  transform  (FFT) 
algorithm  in  the  simulation  program  is  also  recommended. 

As  discussed  in  Section  2.2,  the  difference  equation  and  differential 
equation  representations  offer  the  combined  features  of  ease  of 
application  and  breadth  of  coverage  in  modeling  communication  functions. 
These  two  techniques  are  recommended  as  the  primary  representational 
forms,  but  this  recommendation  should  not  be  construed  to  mean  that  all 
functions  must  be  represented  in  this  manner.  Any  representation  which 
produces  the  appropriate  time-domain  output  for  the  specified  Inputs 
is  usable.  This  flexibility  in  representational  form  should  be  considered 
to  be  an  attractive  aspect  of  the  chosen  simulation  structure. 

8.3  Simulation  Approach 

In  most  Instances  the  system  level  models  may  be  exercised  by 
simply  providing  numerical  values  for  the  Involved  parameters.  Thus, 
no  special  approach  is  required  to  carry  out  a system  level  exercise  or 
simulation. 
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The  exercise  of  the  function  level  models  results  in  a true 
simulation,  and  therefore,  it  is  necessary  to  discuss  how  the  simulation 
will  be  performed.  As  pointed  out  in  Section  2.3,  certain  probabilistic 
quantities  such  as  probability  of  bit  error  and  the  probability  density 
function  of  the  decision  variable  are  of  primary  importance.  The 
recommended  techniques  for  evaluating  such  quantities  are  the  modified 
Monte  Carlo  approach  and  the  standard  Monte  Carlo  approach.  The 
modified  Monte  Carlo  scheme  is  viewed  as  being  the  most  suitable  for 
an  interactive  simulation  effort. 

In  recognition  of  the  fact  that  there  are  performance  measures 
other  than  the  two  mentioned  above,  it  is  suggested  that  additional 
exercise  methods  be  included  in  the  simulation  program.  For  example, 
Intersjrmbol  Interference  effects,  signal  bandwidth,  and  timing  constraints 
may  be  best  studied  in  an  exercise  which  does  not  Introduce  simulated 
noise.  This  scheme  has  been  described  in  Section  2.3  as  a deterministic 
Monte  Carlo  approach. 

A simulation  package  capable  of  performing  a standard  Monte  Carlo, 
a modified  Monte  Carlo,  and  a deterministic  Monte  Carlo  analysis 
would  offer  the  prospective  user  a wide  variety  of  evaluation  capabilities. 

8.4  Programming  Structure 

It  is  recommended  that  the  MIDACS  software  consist  of  a set  of 
application  programs  Installed  in  a host  computer  and  in  a satellite 
graphics  computer.  Each  set  of  programs  should  be  designed  to  operate 
under  the  resident  operating  systems  of  the  respective  computers, 
specifically,  the  Disc  Oriented  Software  System  (DOSS)  for  the  Collins 
C8500  and  the  RT-11  Operating  System  for  the  Digital  Equipment  GT-44. 

The  FORTRAN  prograinnlng  and  run  time  facilities  of  the  two  systems  are 
Judged  to  be  capable  of  supporting  the  development  and  operation  of  MIDACS. 

The  developed  software  will  utilize  the  resident  FORTRAN  libraries 
of  each  computer  system  and  the  RT-11  FORTRAN  graphics  library.  The 
software  should  Include  graphics  display  routines,  analytical  and 
computational  programs,  a configuration  management  package  including  its 
associated  graphics  operations,  and  the  controller  routines  to  direct  the 
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program  flow  in  response  to  user  actions  during  the  operation  of  MIDACS. 

Overlay  techniques  in  the  GT-44  and  program  segmentation  in  the 
C8500  are  recommended  so  that  the  available  memory  is  used  effectively. 
Interactions  with  the  user,  including  user  assistance  and  error 
messages  should  be  distributed  throughout  the  program  structure,  and 
activities  of  the  various  program  components  should  be  coordinated  by 
a system  of  control  variables  maintained  in  each  computer  and  communi- 
cated over  the  satellite-host  link. 

8.5  Software  Development 

The  various  program  components  for  MIDACS  should  be  designed 
using  the  FORTRAN  language  and  possibly  the  assembly  language  facilities 
of  the  Collins  C8500  and  the  Digital  Equipment  GT-44.  It  is  likely 
that  much  of  the  host  computer  software  will  be  developed  on  a system 
other  than  the  C8500  due  to  the  latter's  unavailability  during  the 
initial  stages  of  work.  However,  by  keeping  in  mind  the  nature  of 
FORTRAN  in  the  C8500,  the  program  designer  can  insure  that  the  software 
will  transfer  with  relatively  little  modification.  The  top-down 
and  structured  programming  approaches  should  be  used  to  effect  a versatile 
hierarchical  framework  for  MIDACS  upon  which  continuing  system  expansion 
can  be  based.  The  following  schedule  is  recommended  for  implementing 
the  minimum  system: 

1.  Establish  working  hardware  configuration, 

2.  Define  communications  protocol  between  computers, 

3.  Install  main  controller  in  host, 

4.  Install  configuration  management  package  in  satellite. 

Test  and  debug  operation  of  host-satellite  system  at  this  stage, 

5.  Install,  test,  and  debug  simulation  controller  and  small  set 
of  function  simulators  in  host, 

6.  Install  analytical  and  computational  routines  in  host. 
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7.  Install  graphics  display  routines  In  satellite  that  are 
associated  with  analytical  routines  In  host.  Test  and 
debug  the  operation  of  these  sets  of  programs  with  the 
related  programs  In  the  host, 

8.  Use  minimum  system  as  a basis  for  the  addition  of  new  function 
simulators,  analytical  routines,  and  associated  graphics 
routines  to  round  out  the  versatility  and  applicability  of 
MIDACS  to  communications  problems. 


One  must  remember  that  adding  software  almost  always  requires 
modifications  to  the  existing  software.  Proper  design  and  planning 
Insures  that  the  degree  of  modification  is  minimized,  so  that  no  time 
Is  wasted  In  going  back  to  redesign  the  program  each  time  new  features 
are  Incorporated. 


8.6  Hardware 

A detailed  discussion  of  hardware  appears  In  Section  6.  The 
purpose  of  the  current  discussion  is  to  provide  an  itemized  list  of 
recommended  hardware,  and  to  that  end,  the  following  list  is  offered: 

1.  A high  speed  central  processing  unit  (CPU)  with  at  least  50K 
of  memory  and  one  or  more  mass  storage  devices, 

2.  A lineprinter  for  producing  hard  copy  of  alphanumeric  information, 

3.  A plotter  for  producing  hard  copy  of  graphical  information, 

4.  A graphics  terminal  with  light-pen  capabilities  and  at  least 
24K  of  memory  and  one  or  more  mass  storage  devices, 

5.  An  interface  device  capable  of  coupling  the  CPU  to  the  graphics 
terminal  and  a remote  programming  terminal,  and 

6.  One  or  more  modem  units  for  communicating  with  the  remote 
programming  terminal. 

The  Collins  C8500  computer  with  its  64K  of  memory  and  associated 
mass  storage  devices,  which  RADC  owns,  is  deemed  to  be  a suitable  CPU; 
however,  the  DEC  GT-44  owned  by  RADC  Is  Inadequate  in  Its  present  form 
for  extensive  graphics  development.  It  Is  recommended  that  an  additional 
16K  of  memory  be  acquired  to  supplement  the  existing  memory. 
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8.7  Further  Development 


It  is  reconmended  that  the  concepts  discussed  In  this  report  be 
employed  In  the  development  of  a large  scale  simulation  program. 

Such  a program  should  be  developed  In  steps,  and  It  Is  suggested  that 
each  step  result  In  an  operational  software  tool.  A three  step 
program  of  the  following  form  Is  suggested: 


Step  1:  A preliminary  software  development  effort  In  which  the 

basic  program  structure  Is  Implemented  and  a sufficient 
number  of  models  are  developed  to  allow  the  evaluation 
of  at  least  three  communication  systems, 

Step  2:  An  Intermediate  software  development  phase  In  which  the 

basic  program  generated  In  Step  1 Is  expanded  primarily 
through  the  development  of  a large  number  of  system  and/or 
function  models,  and 

Step  3:  A review  and  refinement  task  in  which  all  of  the  previously 

developed  software  Is  evaluated  on  the  basis  of  Its 
utility  and  efficiency.  Also  the  relationship  between 
the  hardware  and  software  will  be  examined  to  see  If  the 
Incorporation  of  advances  in  hardware  during  the  period 
of  the  program  would  allow  Improved  program  operation. 


Based  upon  the  discussion  of  Section  4,  It  Is  suggested  that  In 
Step  1 communication  systems  using  llne-of-slght,  troposcatter , and 
wire-line  channels  be  modeled.  The  systems  built  around  these  channel 
models  should  be  capable  of  a variety  of  modulation  forms  and  coding 
types.  In  particular,  provision  should  be  made  for  modeling  FSK,  PSK, 
and  DPSK  modulation  formats  and  convolutional  and  block  encoding 
schemes.  By  employing  all  of  the  possible  combinations  of  the  features 
mentioned,  one  can  generate  18  distinct  coonunlcation  systems. 

As  pointed  out  elsewhere  In  this  report  there  are  a variety  of 
analysis  capabilities  that  could  be  Incorporated  Into  the  program. 

The  following  Is  a list  of  those  capabilities  which  are  Judged  to  be 
the  most  Important  and  should  be  Included  as  a minimum  In  the  simulation 
program: 
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1.  Time  domain  waveform  generation, 

2.  Slgnal-to-noise  ratio  evaluation, 

3.  Probability  of  bit  error  determination, 

A.  Signal  spectrum  characterization,  and 

5.  Probability  density  function  evaluation  for  the  decision  variable. 


Interactive  graphics  Is  central  to  the  simulation  concept  that  has 
been  studied  in  the  current  effort  and  is  recommended  for  any  future 
program  development.  It  Is  suggested  that  in  any  further  development 
the  graphics  program  be  capable  of: 


1.  Displaying  a complete  set  of  step-by-step  instructions  on 
program  use  at  the  request  of  the  user, 

2.  Displaying,  structuring,  and  restructuring  the  systeia-level  and 
function-level  block  diagrams, 

3.  Accepting  light  pen  Inputs  of  both  a qualitative  and  quantitative 
nature, 

4.  Outputting  plots  of  evaluated  performance  measures  where  the 
measure  Is  shown  to  be  a function  of  a variety  of  Independent 
variables,  and 

5.  Allowing  families  of  curves  to  be  generated  on  a single  grid  structure. 
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APPENDIX  A 


MIDACS  DEMONSTRATION  SOFTWARE  DOCUMENTATION 
1.  General  Description 

The  MIDACS  demonstration  software  is  a set  of  FORTRAN  IV  programs 
intended  to  illustrate  some  of  the  concepts  formulated  for  MIDACS,  The 
demonstration  was  not  designed  as  a complete  analytical  tool  although  It 
can  provide  useful  information  for  some  types  of  problems.  There  are  two 
approaches  to  system  level  analysis  and  one  somewhat  limited  function  level 
analysis  package.  The  demonstration  allows  program  control  to  be  exercised 
either  from  a keyboard  or  an  Interactive  graphics  terminal,  thus  providing 
a ready  comparison  between  these  two  approaches  to  interactive  modeling 
and  simulation. 

The  demonstration  is  designed  to  run  in  a Digital  Equipment  Corp. 

GT-A4  computer  system  with  16K  of  main  memory.  If  a larger  memory  space 
is  available,  the  text  output  can  be  displayed  on  the  CRT  rather  than  the 
printer.  A separate  program  consisting  of  a subset  of  the  demonstration 
software  will  run  in  the  minimum  memory  space  and  allow  the  display  of 
text  on  the  CRT.  The  separate  program  is  in  file  MIDSYS.SAV,  and  the 
demonstration  program  is  in  file  MID16K.SAV  on  the  demonstration  DECpack 
disk  cartridge. 

Table  A-1  is  an  alphabetical  listing  of  all  subroutines  developed  for 
the  demonstration  package.  Table  A-2  is  a file  directory  showing  where  the 
subroutines  are  located  in  the  disk-resident  permanent  files.  The  follow- 
ing sections  describe  briefly  and  list  the  main  program  and  the  subroutines 
as  they  exist  on  the  GT-44.  For  a description  of  the  overlay  structure 
used,  see  Section  7.2.  The  subroutine  calling  hierarchy  for  MIDACS  demonstration 
software  is  depicted  in  Appendix  D. 
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TABLE  A-1 


SUBROUTINES  USED  IN  MIDACS  DEMONSTRATION  PACKAGE 


1. 

ABl 

23. 

FS2 

46. 

R3YNO 

2. 

AB2 

24. 

GOOF 

47. 

SAHLPF 

3. 

AB3 

25. 

GTPLT 

48. 

SBCTRL 

4. 

AMP 

26. 

GTYCTR 

49. 

SIGGEN 

5. 

ASSIST 

27. 

HINT 

50. 

SLST 

6. 

BCDFPT 

28. 

HOLD 

51. 

SMPHLD 

7. 

CMQF 

29. 

INTROl 

52. 

SMPLPF 

8. 

CNVT 

30. 

LPF 

53. 

SNR 

9, 

COPY 

31. 

MODIFY 

54. 

SNRF 

10. 

DATIT 

32. 

PE 

55. 

STRDTA 

11. 

DPS 

33. 

PE70 

56. 

SYSAST 

12. 

DRATEF 

34. 

PICTl 

57. 

SYSINT 

13. 

DSPECR 

35. 

PLTEND 

58. 

SYSMSS 

14. 

DSPSNR 

36. 

PRAB 

59. 

SYSTEM 

15. 

ELFIND 

38. 

PRFS 

60. 

SYIMS 

16. 

ENRF 

39. 

PROCES 

61. 

SY30 

17. 

ERF 

40. 

PRPSD 

62. 

SY40 

13. 

ETA 

41. 

PRQ 

63. 

SY50 

19. 

FEAT 

42. 

PSl 

64. 

SY60 

20. 

FEATl 

43. 

PS2 

65. 

SY70 

21. 

FETCH 

44. 

QNTIZER 

66. 

TIMPLT 

22. 

FSl 

45. 

QPS 

67. 

YNT 
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TABLE  A-2 


SUBROUTINE  DIRECTORY  BY  FILE  NAME  (ON  DECpack  DISK) 


FILENAME  (not  Including  extensions)  SUBROUTINES 


1. 

ROOTl 

MAIN,  DATIT 

2. 

SEGIRI 

PRCTRL,  PROCES 

3. 

SEG2R1 

SBCTRL 

4. 

SEGARl 

SYSTEM 

5. 

SEG6R1 

ASSIST 

6. 

SEG7R1 

INTROl 

7. 

SEG8R1 

SYSAST 

8. 

R2REM 

*Unwrltten  Subroutines* 

9. 

R2FTBD 

FETCH,  BCDFPT 

10. 

F2GFTI 

TIMPLT,  GOOF 

11. 

R2SYSB 

SY30,  SYAO,  SY50 

12. 

F2S1NT 

SYSINT 

13. 

R2MOD 

MODIFY 

lA. 

R2SIG 

SIGGEN 

15. 

R2LPF 

COPY,  LPF,  YNT 

16. 

R2QNT1 

QNTIZER,  SAHLPF,  FEATl 

17. 

R2SMS1 

SYIMS 

18. 

R2SB60 

SY60,  PE,  SNRF,  ENRF 

19. 

R2SB70 

SY70,  PE70 

20. 

R2HINT 

HINT 

(continued) 
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TABLE  A-2  (continued) 

SUBROUTINE  DIRECTORY  BY  FILE  NAME  (ON  DECpack  DISK) 


FILENAME  (not  including  extensions)  SUBROUTINES 


21. 

R2SMP 

SMPHLD 

22. 

R2GTP 

GTPLT 

23. 

R2SLST 

SLST 

24. 

R2PIK1 

PICTl 

25. 

R2ELST 

ELFIND 

26. 

R2AB1 

ABl 

27. 

R2AB2 

AB2 

28. 

R2AB3 

AB3 

29. 

R2PS1 

PSl 

30. 

R2PS2 

PS2 

31. 

R2QPS 

QPS 

32. 

R2DPS 

DPS 

33. 

R2FS1 

FS2 

34. 

R2FS2 

FS2 

35. 

R2S8MS 

SYSMSS 

36. 

R2PRAB 

PRAB 

37. 

R2PRPD 

PRPSD 

38. 

R2PRQ 

PRQ 

39. 

R2PRFS 

PRFS 

40. 

R2CNVT 

CNVT 

HOLD,  SMPLPF, 


STRDTA 


FEAT 


(continued) 
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TABLE  A-2  (continued) 

SUBROUTINE  DIRECTORY  BY  FILE  NAME  (ON  DECpack  DISK) 


FILENAME  (not  including  extensions)  SUBROUTINES 


41. 

R2SNRP 

DSPSNR 

42. 

R2ECRP 

DSPECR 

43. 

R3F1 

ERF,  AMP,  ETA 

44. 

R3F2 

CMQF 

45. 

R3F3 

DRATEF,  SNR 

46. 

R3YNO 

R3YNO 

47.  R3GTC 


GTYCTR,  PLTEND 


2. 


Main  Program 

Calls:  INTROl.  ASSIST,  SBCTRL,  SYSTEM,  PRCTRL,  GOOF,  SYSAST,  CTPLT 

Commons:  blank,  DF1012,  CDATA,  CCIRKT,  CWORD,  CDATIN,  CRESL-^  CBER 

CBINRY 

Description:  MAIN  is  the  overall  control  program  which  directs  the 

operations  of  the  MIDACS  demonstration.  It  occupies  the  root  segment  in 
the  overlay  structure  and  serves  as  a switching  function  to  call  appro- 
priate region  1 subroutines.  It  allows  subroutines  in  one  overlay  segment 
to  call  subroutines  in  other  segments  via  the  control  variables  ICOM  and 
ICNTRL  and  the  computed  GO  TO  statement. 
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OOT"U 

ROOTl 

P FORTRAN  IV  V01C-03A  FRI  30-JUL-76  02:05:01  RAGE  001 

0001  PROGRAM  MAIN 

0002  COMMON/DFlOir/IRECtNREC 

0003  COMMON/HSTORY/A< 10i4) 

0004  COMMON  T . I f Ii<LK  . IQCNTR . IGRAFX » ICOM p ICNTRL  f IPNTS 

0005  COMMON/CIiA  r A/JCTR  p PAT  A ( 50  ) 

0006  COMMON/CMRM  /NPLK  p I TYP < 10 p 2 ) 

0007  COMMON/CUORD/UORIK  10) 

0008  COMMDN/CPATIN/PATAIN( 100) pPPASTl PDPAST2 

0009  COMMON/CRESLT/RESULT ( 100 ) p RPASTl pRPAST2 

0010  C0MM0N/CBER/BER(40)/CPINRY/8INARY(100) p IQU0RD<5) 

0011  D DEFINE  FILE  10  < 3 p 50 p U p NREC ) 

0012  D DEFINE  FILE  12  ( 51 20 p 40 p Up IREC ) 

0013  DATA  IVAR/IHY/ 

0014  ICNTRL=0 

0015  ICOM-1 

0016  CALL  INTROKGTST) 

0017  IF< ICNTRL.E0.5)  CALL  ASSIST 

0019  1 GO  TO  (10p20p10p10p50p10p70p80p90p100p110p120p130p140)  ICOM 

0020  10  CALL  SBCTRL( ISYSTM) 

0021  GO  TO  1 

0022  20  CALL  SYSTEM( ISYSTM) 

0023  GO  TO  1 

0024  50  CALL  PRCTRL 

0025  GO  TO  2 

0026  70  ICNTRL-1 

0027  IC0M»1 

0028  GO  TO  1 

0029  80  ICNTRL=2 

0030  ICOM-2 

0031  GO  TO  1 

0032  90  CALL  GOOF 

0033  GO  TO  1 

0034  100  CALL  SYSAST 

0035  GO  TO  2 

0036  110  CALL  GOOF 

0037  GO  TO  1 

0038  120  CALL  GTPLT 

0039  GO  TO  1 

0040  130  CALL  GOOF 

0041  2 ICNTRL*0 

0042  GO  TO  1 

0043  140  URITE(6p8400) 

0044  8400  FORMAT(/'  THE  MIDACS  DEMONSTRATION  PROGRAM  UILL  NOW'p 

+'  TERMINATE' p/'  AND  CONTROL  WILL  RETURN  TO  THE  RT-ll'p 
+'  MONITOR.') 

0045  STOP 

0046  END 
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I < 


* 


3.  Subroutines  ABl,  AB2,  AB3,  PSl,  PS2 . QPS,  DPS,  FSl,  FS2 
Calls:  RT-11  GT  Graphics  Subroutines 

Called  by:  SYSAST 

Commons:  None 

Each  subroutine  sets  up  a display  file  In  a region  2 overlay  and 
restores  Into  the  display  the  block  diagram  of  the  system  under  consid- 
eration as  outlined  In  Table  A-3.  It  then  suspends  program  execution  to 
allow  the  user  as  much  time  as  he  wants  to  Inspect  the  diagram.  A carriage 
return  keystroke  Is  sufficient  to  continue  program  execution. 


TABLE  A-3 
DISPLAY  FILES 


SUBROUTINE  ASSOCIATED  SYSTEM 


ABl 

ASK  with 

coherent  detection 

AB2 

ASK  with 

non-coherent  detection 

AB3 

ASK  with 

correlation  receiver 

PSl 

PSK  with 

coherent  detection 

PS2 

PSK  with 

correlation  receiver 

qps 

QPSK  (4-phase  PSK) 

DPS 

DPSK  (differential  PSK) 

FSl 

FSK  with 

coherent  detection 

FS2 


FSK  with  non-coherent  detection 


♦ I ISTl 
F (IK'IKF^N 

0001 

0002 

0003 

0004 

0005 
OOOA 

0007 

0008 
0009 


IV  V01C-03A  WED  2ri-AUti--7&  13:35132  PAGE  001 

nUItRnUTINE  A81 
rUMENSKJN  I HUE  (400) 

CALL  INir  (IWIF»400) 

CALL  nCR0L(5»900»5) 

CALL  FvSIR  ( ' ASKBl  ' ) 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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*PROPRT/X 


«JOB 

»RTU 

ADJUST  PAPER  AND  PRESS  <RETURN>  KEY 

PORTRAN  IV  V01C-03A  FRI  30-JUL-76  03:23(13  PAGE  001 

0001  SUBROUTINE  AB2 

0002  DIMENSION  IBUF(AOO) 

0003  CALL  INIT  (IBUF»400) 

0004  CALL  SCR0L(5f 900»5) 

0005  CALL  RSTR  <'ASKB2') 

0006  PAUSE  'TYPE  RE  TO  CONTINUE' 

0007  CALL  FREE 

0008  RETURN 

0009  END 
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FORTRAN 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 


IV  V01C-03A  FRI  30-JUL-76  03:23125  RAGE  001 

SUBROUTINE  AB3 
DIMENSION  IBUr(400) 

CALL  INIT  (IBUFrAOO) 

CALL  SCR0L(Sf900f5> 

CALL  RSTR  ('ASKB3') 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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r 


FORTRAN 

0001 

0002 

0003 

0004 

0005 
0004 
0007 

oooe 

0009 


IV  V01C-03A  FRI  30-JUL-7A  03123150  PAOe  001 

SUBROUTINE  P81 
OINENSION  IBUF(400) 

CALL  INIT  (IBUFtAOO) 

CALL  SCR0L<5>900>5) 

CALL  RSTR  I'PSKBl') 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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FORTRAN  XV 


V01C-03A 


FRI  30-JUL-76  03:24:10 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 


SUBROUTINE  PS2 
DIMENSION  IBUF(400) 

CALL  INIT< IBUF.400) 

CALL  SCR0L(5»900»5) 

CALL  RSTR( 'PSKB2' ) 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03:24tS0 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 


SUBROUTINE  OPS 
DIMENSION  IBUF(400) 

CALL  INlT<IBUFf400) 

CALL  SCR0L(S>900tS) 

CALL  RSTR('OPSKBl') 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03:24:36 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 


SUBROUTINE  OPS 
OIHENSION  IBUF(400) 

CALL  INIT  <IBUF.400) 

CALL  SCR0L(5f 900»5) 

CALL  RSTR  ('DPSKBl') 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03:2St04 


PAGE  001 


0001 

0002 

0003 

0004 

0005 
OOOA 

0007 

0008 
0009 


SUBROUTINE  FSl 
HI MENS I ON  IBUF(400> 

CALL  INIT  <IBUF»400> 

CALL  SCR0L<5f 900»5) 

CALL  RSTR  < 'FSKBl ' ) 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 
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FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03t25t25 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 


SUBROUTINE  FS2 
DIMENSION  IBUF(400) 

CALL  INIT  (IBUFfAOO) 

CALL  SCR0L<5f900t5) 

CALL  RSTR  < 'FSKB2' ) 

PAUSE  'TYPE  RE  TO  CONTINUE' 

CALL  FREE 

RETURN 

END 


4. 


Function  AMP 


Calls:  None 

Called  by:  ENRF,  SNRF 

Commons:  None 

AMP  calculates  the  amplitude  of  the  received  signal  based  on  param- 
eters in  the  data  array  A which  Is  associated  with  the  old  version  system 
level  analysis.  The  evaluation  is  carried  out  using  the  formula  below. 
AMP  is  used  in  computing  the  signal  or  energy-to-noise  ratio  for  specific 
values  of  transmitter  power,  antenna  gain,  etc. 


Amplitude 


4irfR 


v/p  G G 
t t r 


where  c = velocity  of  light 

f = operating  frequency  in  Hz 

R = transmitter  receiver  separation  distance  in  meters 
o 

P^  = transmitter  power  in  watts 

G^  « transmitter  antenna  gain  (converted  from  dB  to  linear) 
G “ receiver  antenna  gain  (converted  from  dB  to  linear) . 
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FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03:32:10 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 


FUNCTION  AMP<A) 
niNENSION  A(10) 

GT=10.#»(A<4)/10. ) 

GR°10.««(A(7>/10. ) 

PT=«A<3) 

R0>A(6) 

F*A(5) 

AMP- ( 2 . 38565E7 ) *SQRT  < PT*GT*GR ) / ( F*RO ) 

RETURN 

END 


5. 


Subroutine  ASSIST 


Calls:  PICTl 

Called  by:  MAIN 

Conunons:  blank 

ASSIST  provides  the  Inexperienced  user  a brief  description  of  the 
types  of  problems  the  MIDACS  demonstration  will  handle.  It  then  provides 
a light  pen  sensitive  choice  of  analysis  levels  through  subroutine  PICTl. 
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*LST4 

FORTRAN 

0001 

0002 

0003 

0004 


0005 

0006 


0007 

0008 
0010 
0011 
0012 

0013 

0014 


IV  V01C-03A  FRI  30-JUL-76  02: 15:59  PAGE  001 

SUBROUTINE  ASSIST 

COMMON  Tf J. IBLKf IQCNTR. IGRAFXr ICOMf ICNTRL 
URITE(6f 100) 

100  FORMAT f//'  THERE  ARE  CURRENTLY  TWO  TYPES  OF  ANALYSIS  IN  THE'» 
+/'  MIDACS  PROGRAM.  IN  THE  SYSTEM  LEVEL  THE  SYSTEM  DIAGRAM  'r 
+/'  IS  ALREADY  SPECIFIED  AND  THE  PARAMETERS  OF  INTEREST  ARE  'f 
+'STUDIED. ' f 

+/'  AT  THE  SUBFUNCTION  LEVEL  THE  USER  CONSTRUCTS  A SYSTEM  OR'r 
+/'  PARTIAL  SYSTEM  FROM  A SET  OF  SUBFUNCTION  BLOCKS.') 

URITE(6f 200) 

200  FORMAT<//'  YOU  SHOULD  NOW  USE  THE  LIGHT  PEN  TO  SELECT  WHICH' » 
+'  TYPE'r 

+/'  OF  ANALYSIS  YOU  WANT.  THERE  WILL  BE  A TIME  DELAY  BEFORE' f 
+/'  THE  LIST  APPEARS  ON  THE  SCREEN.  A CTRL  C WILL  ALWAYS  '» 
+'TERMINATE' » 

+/'  THE  PROGRAM  EXECUTION'/) 

CALL  PICTKITST) 

IF(ITST.EQ.l)  GO  TO  10 
IC0M*1 
RETURN 
10  IC0M=10 
RETURN 
END 
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Function  BCDFPT 


6. 

Calls:  None 

Called  by:  FETCH 

Commons:  None 

BCDFPT  accepts  binary  coded  characters  representing  numerical  quan- 
tities and  converts  them  to  a real  number  which  Is  returned  through  the 
function  name.  It  Is  part  of  the  command  decoding  structure  and  Is  used 
to  convert  parameters  In  common  array  WORD  Into  real  number  format.  This 
function  was  adapted  from  FATCAT  [45]  with  minor  modifications. 
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FORTRAN  ly 


y0lC-03A  FRI  30-JUL-7&  02:31J01 


PAGE  001 


0001  FUNCTION  RCDFPTC  BCD»N  ) 

0002  INTEGER  DIGIT » E.  FLUSf  DECPT.  BCD 

0003  LOGICAL  EXPFLGf  DIGFLGf  DECFLG.  EXSION 

0004  DIMENSION  BCD( 1 ) .KSIGN < 3 ) » INTEGR < 3 ) . RESULT < 3 ) » DIGI T ( 10 ) 

0005  DATA  DIGIT  / IHO . IHl t 1H2 » 1H3 t 1H4 t 1H5 » IHA » IH7 . 1H8 » 1H9/ 

0006  DATA  PLUSr  MINUS»  Er  DECPT  / IH+f  IH-f  IHEt  IH,  / 

0007  EXPFLG-. FALSE. 

0008  DIGFLG>. FALSE. 

0009  DECFLG-. FALSE. 

0010  EXSIGN-. FALSE. 

0011  DO  11  K-1.3 

0012  KSIGN(K)-1 

0013  INTEGR(K)-0 

0014  11  CONTINUE 

0015  NPLART-0 

0016  K-1 

0017  DO  31  I-l.N 

0018  ICHAR-BCD(I) 

0019  IF  < ICHAR-PLUS  ) 13.23.13 

0020  13  IF  < ICHAR-MINUS  ) 14.24.14 

0021  14  DO  15  J-1.10 

0022  IF  ( ICHAR-DIGIT< J)  ) 15.25.15 

0023  15  CONTINUE 

0024  IF  ( ICHAR-DECPT  ) 16.26.16 

0025  16  IF  ( ICHAR-E  ) 21.29.21 

0026  23  IF  < DIGFLG  ) GO  TO  28 

0028  GO  TO  31 

0029  24  IF  ( DIGFLG  ) GO  TO  27 

0031  KSION(l)  — 1 

0032  GO  TO  31 

0033  25  INTEGR(K)-10*INTEGR<K>+J-1 

0034  NPLART-NPLART+K-1 

0035  DIGFLG-. TRUE. 

0036  GO  TO  31 

0037  26  IF  < DECFLG  ) GO  TO  21 

0039  IF  < EXPFLG  ) GO  TO  21 

0041  DECFLG-. TRUE. 

0042  K-2 

0043  GO  TO  31 

0044  27  KSIGN<3)  — 1 

0045  28  IF  < EXSIGN  > GO  TO  21 

0047  EXSION-. TRUE. 

0048  GO  TO  30 

0049  29  IF  < EXPFLG  ) GO  TO  21 

0051  IF  < .NOT.  DIGFLG  ) GO  TO  21 

0053  30  EXPFLG-. TRUE. 

0054  K-3 

0055  NPLA8V-NPLART 

0056  31  CONTINUE 

0057  IF  < EXPFLG  > GO  TO  32 

0059  EXPON-1. 

0060  00  TO  35 

0061  32  IF  < NPLART-NPLASV-4  ) 33.33.21 

0062  33  IEXP0N-INTEGR(3)«KSI0N<3) 
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FORTRAN  IV 


V0IC-03A 


FRI 


30-JUL-7A  02:31:01 


PAGE  002 


0063 

IF  < IABS(  lEXPON  ) -37  ) 34>34>21 

0064 

34 

EXP0N=10.**IEXP0N 

0065 

NPI.ART-NPLASV 

0066 

35 

RTSHFT=10.**NPLART 

0067 

RESULT< 1 )=FLOAT<  INTEGR< 1 )*KSIGN< 1 > ) 

0068 

RESULT(2)-FL0AT<  I NTEGR < 2 ) *KSIGN ( 1 ) ) 

0069 

BCDFPT=<  RESULK 1)+RESULT(2)  )*EXPON 

0070 

41 

RETURN 

0071 

21 

N^-1 

0072 

GO  TO  41 

0073 

END 

/ RTSHFT 
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7.  Function  CMQF 


Calls:  Nona 

Called  by:  PE,  PE70 

Coomanda:  None 


CMQF  evaluates  the  complementary  Marcum  Q-functlon  using  a Laguerre 
polynomial  expansion  developed  by  M.  Pent  [46].  CMQF  is  used  in  the 
analysis  of  non-coherent  ASK  systems.  In  the  analysis  below  Q^(x,y)  is 
the  complementary  Marcum  Q-function. 


Q‘^(x,y) 


n“0 


where 


Pjj(a.B) 


L^(o)b" 

(n+1): 


(2n  + 1 - g)B  . p (a  e) 
(n+l)(n+2) 


n0‘ 


(n+l)‘(n+2) 


P^_^(a,B)  . 


P^(a,B)  - 1, 


and 


Pj^(a.B)  - (1  - a)B/2. 


L (a)  is  the  Laguerre  polynomial.  CMQF  uses  fifty  terms  in  the 
series  and  tests  for  out-of-range  results  (number  too  large  or  too  small 
to  be  represented  by  computer). 
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FORTRAN  IV 


V01C-03A 


FRI  30-JUL-7A  03:32:53 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 


FUNCTION  CMQF(X»Y> 

HIMENSION  P(50) 

A=<y**2)/2 

B:=-(X**2)/2 

IF(A8S<B) .GT.67)  GO  TO  20 

AL»-B 

BT— A 

P(l)=»l. 

P<2)=< l-AL>*BT/2 
SUM=P( 1 )+P(2) 
no  30  I=3»50 
Cl=FU0AT(I-2) 

C2=(2*Cl+l-AL)*BT/( (Cl+l )*(Cl+2) ) 
C3^Cl»(BT*»2)/( ( (Cl+l >**2)*(Cl+2) ) 
P(l)=C2»P<I-l)-C3*P(I-2) 
SUM=SUM+P(I) 

30  CONTINUE 

CMOF*A#EXP(B)*SUH 
RETURN 
20  CMOF-0. 

RETURN 

END 
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8.  Subroutine  CNVT 


Called  by:  SYSAST 

Calls:  None 

Comnons:  CYC,  CUPB 

CNVT  converts  the  probability-of-error  values  in  the  arrays  YC  and 
UPB  Into  absolute  screen  coordinates  for  later  display  on  the  CRT.  The 
formula  Is  derived  from  consideration  of  the  area  of  the  screen  to  be 
used  and  the  logarithmic  scale: 

Absolute  Y coordinate  ■ 100  + 100(6  + log(prob.  of  error)). 

For  a probability  of  error  range  from  0 to  10  ^ this  formula  gives 
a screen  coordinate  range  of  700  to  100  In  the  Y-dlrection. 
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0002 

0003 

0004 

0005 

0007 

0008 
0010 
0011 

0013 

0014 

0015 


SUBROUTINE  CNVT 
COMMON/C YC/YC ( 40 ) 

COHMON/CUF  B/UPB  < 40 ) t IBND 
BO  10  I>lf40 

IF<YC<I).LT.l.E-6)  GO  TO  20 
10  YC(I)=100.+100.*(6.+ALOG10(YC(I) ) > 

20  IFdBNB.EO.O)  RETURN 
BO  30  I»l>40 

lF(UPB<l).LT.l.E-&)  RETURN 
30  UPB< I )-100.+100.*<6.+AL0G10(UPB(I) ) ) 
RETURN 
ENB 
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9. 


Subrout ine  COPY 


Calls:  None 

Called  by:  LPF 

Commons:  blank,  HSTORY,  CDATIN,  CRESLT 

COPY  vrrites  the  data  in  the  output  array  RESULT  into  the  Input  array 
DATAIN.  It  also  restores  into  the  variables  DPASTl,  DPAST2,  RPASTl,  and 
RPAST2  the  last  two  input  values  and  output  values  from  the  last  data  block 
processed  through  the  current  subfunction  element  (the  one  that  has  called 
COPY).  This  past  history  information  is  needed  in  some  simulation  models 
to  minimize  transient  effects  as  data  blocks  are  processed  through  the 
model. 


»LST18 
FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  02:54:54 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


SUBROUTINE  COPY 
COMMON/HSTORY/A( lOf 4) 

COMMON  Tfl.IBLK 

COMMON/CDATIN/DATAINdOO)  »DPAST1  rDPAST2 
C0MM0N/CRE5LT/RESULT< 100>  »RPAST1 »RPAST2 
DO  10  J^-^lflOO 
10  DATAIN< J)»RESULT< J) 

DPAST1=A(IBLK*4) 

DPAST2=A<IBLKf3> 

RPAST1=A<IBLK»2) 

RPAST2»A<IBLK»1) 

RETURN 

END 
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10.  Subroutine  PATH 


Calls:  None 

Called  by:  SBCTRL,  SYSTEM 

Commons : CWORD 

DATIT  initializes  the  WORD  array  to  Hollerith  blanks.  This  subroutine 
Is  used  instead  of  simple  assignment  statements  because  of  some  restrictions 
on  Hollerith  data  in  PDP-11  FORTRAN. 
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0001 

0002 

0003 

0004 

0005 


SUEiROUTINE  DATIT 

COMMON/CUORD/UORDdO) 

DATA  U0RD/10*AH  / 

RETURN 

END 


11.  Function  DRATEF 


Calls:  None 

Called  by:  SY60 

Coimnons : None 

DRATEF  calculates  the  data  rate  from  the  mark  probability  and  message 
rate  using  the  formula 


Data  rate  » r[-plog2P  - (1-p)  log2(l-p)]. 


where 

r = message  rate  in  messages/sec 
p “ probability  of  either  mark  or  space. 
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FORTRAN  ly  V01C-03A  FRI  30-JUL-76  03:33:07  PAGE  001 

0001  FUNCTION  DRATEF(A) 

0002  DIMENSION  A<10) 

0003  P=A(1) 

0004  R=A(2> 

0005  DK'ATEF=  < -R/ALOG  ( 2 . ) ) * ( F *ALOG  ( P ) + ( 1 . -P ) *ALOG  < 1 . -P ) ) 

0006  RETURN 

0007  END 


A-35 


12.  Subroutines  DSPECR,  DSPSNR 


Calls:  Graphics  library 

Called  by:  SYSAST 

Commons:  CYC,  CUPB  (DSPSNR  only) 

DSPECR  and  DSPSNR  are  the  graphics  routines  for  displaying  the  computed 
bit-error-rate  data  on  a semi-log  grid.  In  DSPECR  the  horizontal  axis  rep- 
resents energy  contrast  ratio  while  in  DSPSNR  it  represents  signal-to-nolse 
ratio.  Each  routine  sets  up  a display  file  in  a Region  2 overlay  and  restores 
a previously  saved  display  consisting  of  a semi-log  grid  with  labeled  axes. 
Then  it  draws  the  blt-error-rate  curve  on  the  grid  using  data  in  arrays  YC 
and  UPB  (DSPSNR  only  for  the  latter). 
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0007 

0008 
0009 
0011 
0012 

0013 

0014 

0015 

0016 


SUHROUTINE  DSPECR 
COMM0N/CYC/YC<4O) 

HIMENSION  IBUF<590) 

CALL  INIT< IHUF.590) 

CALL  SCR0L(5f 900*5) 

CALL  RSTR< 'EGRID3' ) 

CALL  APNT  <200.*YC(l)*0*-6) 

DO  70  1=2*40 

IF(  YCm  .LT.  100.  ) GO  TO  75 
70  CALL  VECT  ( 1 5 . * YC ( I ) -YC < I-l ) ) 

75  PAUSE  'TYPE  RE  OR  RSU  TO  CONTINUE' 
CALL  SCR0L<-1*-1*-1) 

CALL  FREE 

RETURN 

END 
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0020 
0021 
0022 

0023 

0024 


30-JUL-76  03:28:05 

SUBROUTINE  DSPSNR 
COMMON/CYC/YC  < 40 ) 

C0MM0N/CUFB/UPB(40) rIBND 
BIMENSION  IBUF(590) 

CALL  INI T( lBUFf590) 

CALL  SCR0L(5f900»5) 

CALL  RSTR( 'EGRini ' ) 

CALL  APNT(200. fYC( 1 ) fOr-6) 

HO  70  I=2r40 

IF(YC<I) .LT.IOO. ) GO  TO  75 
70  CALL  UECT  < 1 5 . f YC < I ) -YC ( I-l > ) 

75  IF(  IBNIi.EQ.O)  GO  TO  90 

CALL  APNT  (200. .UPB< 1 ) .0»-6) 

BO  80  1=2-40 

IF<UFB<I). LT.IOO.)  GO  TO  90 
80  CALL  VECT  ( 15 . » UPB ( I ) -UPB ( I-l ) ) 

90  PAUSE  'TYPE  RE  UR  RSU  TO  CONTINUE' 
CALL  SCR0L(-1»-1»-1> 

CALL  FREE 

RETURN 

END 
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13.  Subroutine  ELFIND 


Calls:  None 

Called  by:  SBCTRL,  SYSTEM 

Commons : None 

ELFIND  compares  a Hollerith  string  of  up  to  six  characters  (four  in 
PDP-11  FORTRAN)  to  a permanent  list  of  character  strings.  When  a match  is 
found,  the  Integer  L is  set  to  a unique  value  identifying  the  match.  L is 
then  used  in  the  calling  program  to  direct  program  flow  such  that  the  com- 
mand represented  by  the  character  string  is  executed.  This  subroutine  was 
adapted  from  FATCAT  [45]. 


! 

V 


I 


A- 39 


*LST11 
FORTRAN  IV 


V01C-03A  FRl  30-JUL-76  02J31!29 


PAGE  001 


0001 

0002 

0003 


0004 

0005 

0006 

0007 

0008 

0009 

0010 


11 

21 


SUBROUTINE  ELFIND  (NAME»L) 
REAL  NAHErMATCH<45) 

DATA  HATCH 


+/6HSlGGENf6HSMPHLD» 
+ 6H  rAHRCVR  t 

+ 3HBPF  ,6HPR0CES# 
+ 5HLSTC0  f6HEND0FJf 
+ 6HREPT  f6HC0NTINf 
T 5HNCFSK  f 4HDPSh  f 
+ 6H  f6H  f 

-f  6H  f6H  f 

+ 6HCHANGEf6H  f 

DO  11  I=1f45 
IF  (NAHE-HATCH(D) 
CONTINUE 
1-46 


6HQNTIZRf 
6MDECnr.VF 
6HM0DIFYf 
4HDEM0  F 
4HCASK  F 
5HNCASK  F 
6H  F 
3H0LD  F 
6H  F 

11f21f11 


6HNC0DER 

6HDC0DER 

6HBERPLT 

6HDVRPLT 

4HCPSK 

4HSYS2 

6H 

4HLIST 

4HEXIT 


f4HXMTR  f 
f3HLPF  » 
F6HTIMPLTf 
f6HRESTRTf 
f4HCFSK  f 
f6H  f 
f6H  f 
f3HNEU  f 
f4HSAVE 


/ 


L=I 

RETURN 

END 
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14.  Function  ENRF 


Calls:  AMP,  ETA 

Called  by:  SY60 

Connnons : None 

ENRF  calculates  the  energy-to-noise  ratio  from  the  set  of  system 
level  parameters  according  to  the  formula 

ENR  - 2E/n, 

2 

where  E ® A T/2,  A is  the  AMP  function, 

T ••  sampling  period  = 1/message  rate, 
n ® 2 X noise  power  spectral  display, 
= function  ETA. 
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0001 

0002 

0003 

0004 

0005 

0006 


FUNCTION  ENRF(A.K) 

DIMENSION  A(10> 

R=A(2) 

ENRF=AMP(A)**2/(R*ETA(A»K) ) 

RETURN 

END 


A- A 2 


I 


15.  Function  ERF 


Calls:  None 

Called  by:  PE,  PE70,  PRFS,  PRAB,  PRPSD,  PRQ 

Coimnons : None 


ERF  calculates  the  error  function  using  the  approximation  [47] 


Erf(x)  - 1 - (a^t  + a2t^  + a t^)e“*  , 


where  t = l/(l+px), 
p = 0.47047, 

= 0.3480242, 
a^  - -0.0958798, 
a^  - 0.7478556. 


Accuracy:  |error|  < 2.5  x 10~  for  0 < x < 
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16.  Function  ETA 


Calls:  None 

Called  by:  ENRF,  SNRF 

ETA  computes  the  value  of  n In  the  formulas  for  signal  or  energy  to 
noise  ratios  according  to  the  formulas 


n ” kT^,  if  noise  temperature  is  specified  or 


n - 290  k 10^  dB/10^ 


if  noise  figure  is  specified. 


“23 

where  k • Boltzmann's  constant  = 1.38  x 10  Joule/*K, 
T^  “ effective  noise  temperature  in  Kelvin  degrees, 
F " noise  figure  in  dB. 

QD 
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0008 


FUNCTION  ETA(ArK) 
niMENSION  A(10> 

RNF=A(8) 

ETA=< 1 ,38E-23)*RNF 

IF(K.EQ. 1 )ETA=(4.0038E-21 )*< 10.**(RNF/10. )-l ) 

RETURN 

END 
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17.  Functions  FEAT,  FEATl 
Calls:  None 

Called  by:  SMPHLO,  QNTIZER 

Commons:  blank 

FEAT  and  FEATl  are  Identical  routines  which  evaluate  a low  pass  filter 
constant  for  1,  2,  or  3 sections  of  single  pole  low  pass  filtering.  This 
allows  subfunctions  such  as  the  sample-and-hold  device  to  be  simulated  with 
band-llmltlng  characteristics  Included. 

For  a single  section  filter  F^  Is  given  directly  as  block  bandwidth 
in  Hz. 

For  a double  or  triple  section  filter,  F^  Is  calculated  as  below: 

Fc  - 2itF^  '/yl/2  - 1 (double  section) 

* /~3 

F = 27tF  \ /2  - 1 
c c 

« 

where  F is  the  desired  cutoff  frequency  for  the  overall  filtering  action, 
c 

The  reason  for  having  two  identical  subroutines  is  that  they  are  in 
overlay  segments  occupying  the  same  overlay  region. 
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FUNCTION  FEAT( I »BLKBU) 

COMMON  T 

IF<  I .EQ.  1 ) FEAT=EXP<-6.283185#BLKBWi|iT) 

IF( I .E0.3)  FEAT=EXP(-12.3242#BLKBW*T) 

IF( I .E0.2)  FEAT=EXP(-9.76262*BLKBU*T) 

RETURN 

END 
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0001 

FUNCTION  FEATKIfBLKBU) 

0002 

COMMON  T 

0003 

IF< I ,E0, 1 ) 

FEAT=EXP(-6.283185*HLKBU*T) 

0005 

IF( I ,Ea.3) 

FEAT=EXP(-12. 3242*BLKBW*T) 

0007 

IF< I .EQ.2) 

FEAT=EXP(-9.762<i2*BLKBW*T) 

0009 

RETURN 

0010 

END 

( 

I 
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18.  Subroutine  FETCH 
Calls:  BCDFPT 

Called  by:  SBCTRL,  SYSTEM 

Commons:  CWORD,  CFETCK 

FETCH  is  the  command  input  routine.  It  reads  in  commands  as  a string 
of  characters,  decodes  the  various  elements  in  the  input  stream,  and  store 
them  in  array  WORD.  Blank  characters  are  ignored  and  different  elements  a 
delimited  by  commas.  Hollerith  strings  are  truncated  to  the  first  six  cha 
acters  (four  in  the  PDP-11)  and  stored  in  WORD.  Numeric  characters  repre- 
senting data  are  converted  to  real  numbers  by  BCDFPT  prior  to  being  saved 
in  WORD.  FETCH  is  adapted  from  FATCAT  [45]  with  minor  changes  to  accommod 
the  PDP-11  version  of  FORTRAN. 
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0001 

SUBROUTINE  FETCH  (LL»NBAD) 

0002 

COMMON/CWORT / UORD(IO) 

0003 

INTEGER  APOS  T » BI.ANK . COMMA  t DECPT  f EQUAL  r PLUS  t RPAREN  » TEST 

0004 

INTEGER  BUFFI .BUFF2fBUFF3fBCBFPTf TITLE »U0RD*4fE 

0005 

BIMENSION  TITLE  (12) 

0006 

C0MM0N/CFETCH/BUFF2(6) f BUFFI t80) 

0007 

BATA  APOST/IHV 

0008 

BATA  BLANK  t COMMA . BECPT . EQUAL  » MINUS  f NINE r NZ . PLUS 
+ / IH  f IH, F IH. , 1H=. IH-f 1M9» IHOf 1H+  / 

0009 

BATA  LPARENfRPARENfE  / 1H(f1H)f1HE/ 

0010 

L=0 

0011 

NC0LS=80 

0012 

NBAB=1 

0013 

1 

CONTINUE 

0014 

REAB  (5f1001)  ( BUFFI < I ) f 1=1 f80) 

0015 

20 

M=0 

0016 

2 

K=0 

0017 

N=0 

0018 

NC0MMA=0 

0019 

BO  3 1=1 f6 

0020 

3 

BUFF2( I )=BLANK 

0021 

4 

CONTINUE 

n 

URITE(6f2200)  K 

P2200 

FORMAT!'  K='fI3> 

0022 

IF(M-NCOLS)  40f100f100 

0023 

40 

M=M+1 

0024 

TEST=BUFF1 (M) 

0025 

IF(TEST-BLANK)  41f4f41 

0026 

41 

IF(TEST-COMMA)  42f6f42 

0027 

42 

IF(TEST-EQUAL)  43f6f43 

0028 

43 

IF(TEST-LPAREN)  44f6f44 

0029 

44 

IF(TEST-RPAREN>  45f4f45 

0030 

45 

N=N+1 

0031 

BUFF2(N)=TEST 

0032 

IF(K)  5f5f4 

0033 

5 

NC0MMA=1 

0034 

IF(TEST-NZ)  52f51»51 

0035 

51 

IF(TEST-NINE)  4f4f52 

0036 

52 

IF(TEST-PLUS)  53f4f53 

0037 

53 

IF(TEST-MINUS)  54f4f54 

0038 

54 

IF(TEST-APOST)  55f30f55 

0039 

55 

IF<TEST-BECPT)  56f57f56 

0040 

56 

IF<TEST-E)561 f 560 f 561 

0041 

560 

IF(N-l)  561f561f4 

0042 

561 

K»2 

0043 

GO  TO  4 

0044 

57 

K=1 

0045 

GO  TO  4 

0046 

6 

IF<K-1)  7f7f9 

0047 

7 

BUFF3=BCBFPT(BUFF2fN) 

D 

URITE(6f2020)BUFF3 

D2020 

FORMAT!'  BUFF3='  IIOf/) 

0048 

IF(N)  106fl06f8 

0049 

8 

W0RD!L+1 )-BUFF3 
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0050 

GO  TO  91 

0051 

9 

ENCODE <6f 1002* 

WORD<L  + D)  (BUFF2(I). 1-1.6) 

0052 

91 

L-L  + 1 

0053 

IF(M-NCOLS)  2f 

10.10 

0054 

10 

IF (TEST-COMMA) 

11.1.11 

0055 

11 

LL-L 

D 

URITE(6r55S>  (kiORD(I)rl-lrlO) 

D 555 

F0RMAT(5I12./5I12) 

0056 

RETURN 

0057 

30 

ENC0DE(72f 1001 

.TITLE)  (BUFFKI). 1-1.72) 

0058 

GO  TO  1 

0059 

100 

IF(NCOMMA)  6.1 

.6 

0060 

106 

WRITE<6.2000) 

(BUFF2(I)»1-1.6) 

0061 

NBAD>0 

0062 

RETURN 

0063 

107 

STOP 

0064 

1001 

F0RMAT<80A1) 

0065 

1002 

FORMAT (6A1) 

0066 

2000 

FORMAT <4H0*** 

.6A1.20H  CANNOT  BE  DECODED**//) 

0067 

END 

PAGE  002 
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19.  Subroutine  GOOF 


Calls:  None 

Called  by:  MAIN,  SBCTRL 

Commons:  None 

GOOF  Is  a short  diagnostic  which  is  called  when  certain  features  or 
commands  are  attempted  which  are  not  fully  implemented  in  the  demonstration 
software.  It  prevents  error  exits  and  allows  the  user  to  go  on  with  some- 
thing else. 
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0001 

0002 

0003 

0004 

0005 

0006 
0007 


SUBROUTINE  GOOF 

COMMON  T f Jf IBLK . IQCNTR  r IGRAFX» ICOM  r ICNTRL 
IC0M=7 

WRITE(6flOO) 

100  FORMAK'  SORRY»  THAT  SUBROUTINE  HAS  NOT  BEEN  WRITTEN  YET') 
RETURN 
END 
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20.  Subroutine  GTPLT 


Calls:  GTYCTR,  PLTEND,  Graphics  library 

Called  by;  MAIN 
Commons : CBER 

GTPLT  is  the  plotting  routine  for  the  old  system  level.  It  performs 
the  same  operations  as  DSPSNR  except  that  it  is  operating  on  a different 
data  array.  GTPLT  is  called  Indirectly  from  SYSTEM  by  having  SYSTEM  set 
the  control  variable  ICOM  before  returning  to  the  main  program.  This 
calling  sequence  is  a carry-over  from  the  original  two-level  overlay 
structure  in  which  SYSTEM  and  GTPLT  were  both  assigned  to  the  same  region. 
In  the  three-level  structure  GTPLT  could  be  called  directly. 
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SUBROUTINE  GTPLT 
C0MM0N/CBER/BER(40) 

DIMENSION  IBUF(590) 

CALL  INIT  (IBUFr590) 

CALL  GTYCTR 

CALL  SCROL  <5F900f5) 

CALL  RSTR  < 'EGRIDl ' ) 

CALL  APNT  <200. »BER( 1 ) »0r-5) 

DO  70  1=2*40 

IF(BER( I ) .LT. 100. ) GO  TO  75 
70  CALL  VECT  < 15. *BER< I )-BER( I-l ) ) 

75  CALL  PLTEND 
CALL  FREE 

CALL  SCR0L(-1*-1*-1> 

RETURN 

END 
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21.  Subroutine  GTYCTR 


Calls:  None 

Called  by:  GTPLT 

Commons:  blank,  CBER 

GTYCTR  converts  the  data  In  array  BER  Into  the  corresponding  absolute 
screen  y-coordlnates , which  are  used  to  generate  the  blt-error-rate  curve. 
The  formula  is  the  same  as  in  subroutine  CNVT. 
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0001 

SUBROUTINE  GTYCTR 

0002 

COMMON  T, JJf IBflOrlGflCflCN 

0003 

C0MM0N/CBER/BER<40) 

0004 

no  60  1=1 r 40 

0005 

IFCBERd  ) .LT.  1 .E-6)  GO  TO  65 

0007 

60 

BER(I )=100.+100.»(6.+ALOG10<BER<I) ) ) 

0008 

65 

RETURN 

0009 

END 
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22.  Subroutine  HINT 


Calls:  None 

Called  by:  SYSTEM 

Commons:  HDATA 

HINT  is  used  to  set  up  variable  text  data  which  is  output  during  the 
execution  of  the  old  version  system  level  analysis  routines.  The  particular 
text  data  that  is  assigned  depends  on  the  system  under  consideration  and  the 
values  of  control  variables  passed  through  the  argument  list.  The  text  data 
output  Is  saved  in  common  block  HDATA. 
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0001 
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0005 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0034 

0035 

0036 

0037 


SUBROUTINE  HINT ( I f JTYP r lOTST t K ) 

C0MM0N/HIiATA/HH(4)  .HX»HZ(9) 

DIMENSION  XARY(4) , ZARY (18 ) » HARY< 8 ) 

DATA  XARY/2H  Af2M  P»2H  F»2HDP/f 
+ ZARY/4HDECI r4HSI0N»4H  THR f 4HESM0» 2HLD . 3H  flHE» 

•f  4HN0ISr4HE  BAf4HND  Ur4HIDTH>2H  1 3H  HZflHS* 

+ 4HENER»2HGYf 4HSIGN»2HAL/» 

+ HARY/4HFIGUf2HRE»2HDB»4HTEMP»2H.  »4HDEG.»4H  f4HN0N-/ 

IFdGTST.EQ.l  ) GO  TO  500 
GO  TO  <410f420F430»440.450»460)  I 

410  HX=XARY(1) 

411  DO  412  M»l»7 

412  HZ(M)*ZARY(M) 

HH(4)=HARY(7) 

JTYP-0 

GO  TO  470 
420  HX=XARY<2) 

GO  TO  411 
430  HX=XARY(3) 

GO  TO  411 

440  HX»=XARY(3) 

441  DO  442  M-l»7 

442  HZ<M)=ZARY(M+7) 

HH(4>*HARY(8) 

JTYP-1 

GO  TO  470 
450  HX=XARY<4) 

GO  TO  441 
460  HX*XARY(1) 

GO  TO  441 

470  HZ(8)=ZARY<15+2j*JTYP) 

HZ(9)»ZARY( 16+2*JTYP) 

RETURN 
500  LCT-0 

IF(K.EQ.l)  LCT-3 
DO  31  M*l»3 
31  HH(M)-HARY(M+LCT) 

RETURN 

END 
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23.  Subroutine  HOLD 


Calls:  None 

Called  by:  SMPHLD 

Commons:  CRESLT 

HOLD  performs  the  holding  operation  of  the  sample-and-hold  device  by 
generating  up  to  twenty  data  points  having  the  same  value  as  the  current 
Input  sample  point,  which  Is  determined  by  the  variable  I In  the  argument 
list.  UPPER  and  LOWER  are  bounds  on  the  output  determined  In  SMPHLD  from 
the  user-supplied  specification  list. 
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SUBROUTINE  HOLD < A f UPPER . LOWER r I ) 
IiIMENSION  A<20) 
C0MM0N/CRE5LT/RESULT( 100) 

INTEGER  UPPER 
DO  10  J=1.20 
A<  J)=*0 

IF < LOWER. LE.J. AND. J.LE. UPPER)  A( J 
10  CONTINUE 
RETURN 
END 


)=RESULT( I ) 
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24.  Subroutine  INTROl 
Calls:  None 

Called  by:  MAIN 

Commons:  blank 

INTROl  presents  the  Initial  introduction  to  the  MIDACS  demonstration 
program.  It  also  sets  certain  control  variables  depending  on  user  responses 
to  several  questions.  These  controls  are  used  by  other  parts  of  the  software 
to  effect  proper  program  flow. 
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0001  SUBROUTINE  INTROKOTST) 

0002  COMMON  T • J f I B f IQf IGRAFXr ICON > ICNTRL 

0003  DATA  HY/IHY/  HS/IHS/ 

0004  URITE(6tl00) 

0005  100  FORMAT </////'  MIDACS  DEMONSTRATION  PROGRAM 'f  • 

+//'  PROJECT  A-1750  JULY»1974') 

0006  URITE<6>110> 

0007  110  FORMAT(//'  TO  SKIP  INTROr  TYPE  "S"  AND  <CR>') 

0008  READ(5fl30)X 

0009  130  FORMAT <A1> 

0010  IF(X.EQ.S)GO  TO  1000 

0012  URITE(6>140) 

0013  140  FORMAT(//'  THIS  PROGRAM  DEMONSTRATES  SOME  OF  THE'f 

4 ^ CONCEF’TS  FOR  THE  * t 

+/'  MIDACS  < MODELING  AND  INTERACTIVE  DESIGN  FOR  THE  ANALYSIS'# 
+/'  OF  COMMUNICATIONS  SYSTEMS  ).  YOU  MAY  RESPOND  TO  THE'# 

+/'  COMPUTER''^  INQUIRIES  BY  USING  THE  KEYBOARD  AND/OR  THE'# 

+/'  LIGHT  PEN.'. 

■¥/’  ALTHOUGH  THE  DEMONSTRATION  PROGRAM  CAN  DETECT  SOME'. 

+/'  TYPES  OF  ENTRY  ERRORS.  YOU  SHOULD  BE  REASONABLY  CAREFUL'. 

■t-/'  WHEN  ENTERING  DATA.  FEEL  FREE  TO  USE  THE  DELETE  AND'. 

+/'  CTRL  U KEYS  TO  CORRECT  ERRORS  BEFORE  TYPING  THE  '. 

+/'  CARRIAGE  RETURN  <CR>.') 

0014  1000  UR1TE<6.1S0) 

0015  150  FORMAT(//'ARE  YOU  ON  A GT-44  SYSTEM?  ANSWER  YES  OR  NO'. 

■f'  USING  THE  KEYBOARD.') 

0016  READ(5.8200)0TST 

0017  8200  FORMAT(Al) 

0018  IGRAFX-0 

0019  IFIGTST.EQ.HY)  IGRAFX-l 

0021  URITE(6.ei00) 

0022  8100  FORMAT('  DO  YOU  NEED  ASSISTANCE  IN  USING  MIDACS?'. 

?/'  ANSWER  YES  OR  NO  AS  BEFORE.') 

0023  READ<S.8200)0TST 

0024  IF(OTST.EO.HY)  ICNTRL-S 

0026  RETURN 

0027  END 
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25.  Subroutine  LPF 


Calls:  COPY,  YNT 

Called  by:  PROCES 

Commons:  blank,  CRESLT,  CDATA,  CDATIN 

LPF  is  the  low  pass  filter  simulator  for  the  simple  RC  filter  and 
the  second-order  Butterworth  filter.  The  input  array  is  obtained  from 
COPY,  and  the  output  is  written  to  array  RESULT  and  locations  RPASTl  and 
RPAST2 . 

For  a simple  RC  low  pass  filter  with  Inputs  x(tjj)  and  outputs 


where  a 
T 


^’'^cutoff 
sampling  period. 


For  the  2nd  order  Butterwrth  case. 


with  Cj^ 

^2 

^3 


-al//2 

e 

cos(aT/i^) 

sin(aT/»^) 


we  have 

+ [c^2  _ _ C3)]x(t^_^). 
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0001 

0002 
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0008 
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0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 


SUBROUTINE  LPF 
COMMON  T 

COMMON/CRESLT/RESULT  < 100 ) » RPASTl f RPAST2 

C0MM0N/CDATA/JCTR»HATA<50) 

C0MM0N/CDATIN/DATAIN<100)»DPASTlfDPAST2 

NPTS=100 

CALL  COPY 

IF<DATA( JCTR) .EQ.l)  GO  TO  10 
X“(6.283185*DATA( JCTR+1 )»T)/SQRT(2. ) 

Cl-EXP(-X) 

C2=C0S<X) 

C3=SIN<X) 

RESULT ( 1 ) = YNT  < Cl » C2  f C3 » RPASTl » RPAST2  » DPASTl » DPAST2 ) 
RESULT(2)-YNT<C1 »C2fC3»RESULT( 1) tRPASTl »DATAIN( 1 ) tDPAST) 

DO  20  J»3fNPTS 

20  RESULT( J)“YNT<C1 »C2»C3»RESULT< J-1 ) tRESULT< J-2) rDATAIN< J-l) f 
+DATAIN( J-2) ) 

, 40  RPASTl *RESULT(NPTS) 

RPAST2=RESULT<NPTS-1 > 

DPASTl  =«DATAIN(NPTS) 

DPAST2=DATAIN(NPTS-1 ) 

RETURN 

10  E AT-EXP  < -6 . 283 1 854DATA ( JCTR+1 ) *T ) 

RESULT ( 1 ) =EAT»RPAST1  + < 1-EAT ) 4DPAST1 
DO  30  K-2flOO 

30  RESUL T ( K > »EAT*RESUL  T I K-1 ) + ( 1 -EAT ) 4DATAIN ( K-1 ) 

GO  TC  40 
END 
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26.  Subroutine  MODIFY 


Calls:  None 

Called  by:  SBCTRL 

Conmons:  blank,  CDATA,  CCIRKT 

MODIFY  is  the  processor  for  changing  the  characteristics  of  a system 
configured  from  function  blocks.  It  contains  the  text  information  for 
identifying  the  parameters  associated  with  each  available  function  block. 
The  variable  IBLOCK  points  to  an  entry  in  array  ITYP  where  the  block  iden- 
tifier and  data  location  point  are  obtained.  MODIFY  uses  this  information 
to  print  the  name  of  the  block  and  list  its  parameters  from  the  data  array 
DATA.  Modifications  are  made  to  the  parameters  in  array  DATA  as  desired  by 
the  user.  The  sets  of  RETURN-CONTINUE  statements  allow  for  later  addition 
of  other  listings  as  new  function  elements  are  Implemented. 
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SUBROUTINE  MODIFY ( IBLOCK) 

COMMON  T> J»IBLK>IQCNTRf lORAFXrICONrICNTR 
COMMON/CDAT A/ JCTR  p DATA  < 50 ) 

C0MM0N/CCIRKT/NBLKpITYP(10p2> 

DATA  X/IH  /pYES/lHY/ 

ICOM-7 

IF(IBLOCK.GT.NBLK)  GO  TO  900 
IBTYP-ITYP<IBL0CKp1> 

LCTR»ITYP< IBL0CKp2) 

GO  TO(10p20p30p40p50p60p70p80p90p100p110)IBTYP 

10  URITE<6rl2)  IBLOCK 

12  FORMAT('  BLOCK  'tI2p'  IS  A SIGNAL  GENERATOR") 

11  JTYP-DATA(LCTR) 

JSMP*DATA(LCTR+4> 

URI TE  < 6 p 1 4 ) JTYP  p DATA  < LCTR+ 1 ) p DAT A ( LCTR+2 ) p DATA ( LCTR+3  > p JSMP 
14  FORMAT('  1.  TYPE-'pI2p'  < 0-SINEp  1-SOUARE  WAVE  )'» 

+/'  2.  AMPLITUDE-  'pE10.4p'  VOLTS' p/'  3.  FREQUENCY-  'pE10.4p'  HZ'p 
+/'  4.  DC  OFFSET-  'pE10.4p'  VOLTS' p/'  5.  SAMPLES  PER  PERIOD-' pI4) 

GO  TO  700 

20  URITE(6p22) IBLOCK 

22  FORMAT('  BLOCK  'pI2p'  IS  A SAMPLE  AND  HOLD') 

21  JTYP-DATA(LCTR) 

JSMP-DATA(LCTR+1) 

WRITE (6 p24)JTYPp JSMP 

24  FORMAT</'  1.  OUTPUT  PULSE  DURATION  - 'pIIOp'X  OF  SAMPLING  PERIOD' p 
+/'  2.  FIRST  ORDER  LPF  WITH' p4Xp IIOp ' SECTIONS  ( O-NO  FILTERING  )') 
IFCJSMP.EO.O)  GO  TO  700 
URITE(6p25)  DATA(LCTRf2) 

25  FORMAT<'  3,  BLOCK  BANDWIDTH' p7Xp '-  'pE10.4p'  HZ') 

GO  TO  700 

30  WRITE(6p32)  IBLOCK 

32  FORMAT ('  BLOCK  'pI2p'  IS  A QUANTIZER') 

31  NQL-DATA(LCTR42) 

IQSMP-DATA  < LCTR+3 ) 

I0UTSW«DATA(LCTR+4) 

lD0UT-DATA(LCTR+5) 

JTYP-DATA<LCTR+6) 

WRITE<6p34)DATA<LCTR)pDATAaCTR+l)» 

+NQL  p IQSMP  p I OUTSW  p I DOUT  p JTYP 

34  FORMAT</'  1.p2.  DYNAMIC  RANGE  IS  'pF5.2p'  TO  'pF5.2p'  VOLTS. 'p 
+/'  3.  NO.  OF  QUANTIZATION  LEVELS  - 'pI3p 

+/'  4,  INPUT  LATCHED  IN  AT  'pI3p'X  OF  SAMPLE  PERIOD'. 

+/'  5.  BINARY  OUTPUT  SWING  IS  'pI2p'  < -1-SYMMETRIC' p 

+'p  O-NON-SYMMETRIC  )'p 

+/'  6.  OUTPUT  BIT  DURATION  IS  'pI3p'X  OF  BIT  INTERVAL'. 

♦/'  7,  NO.  OF  LPF  SECTIONS  - 'pI2p'  ( O-NO  FILTERING  )') 

IF  (JTYP.EQ.O)  GO  TO  700 
WRITE <6p 36)  DATA(LCTR+7) 

36  FORMAT('  8.  BLOCK  BANDWIDTH  'pE10.4) 

GO  TO  700 

40  RETURN 

41  CONTINUE 

50  RETURN 

51  CONTINUE 
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10 

001C-03A  FRI  30-JUL-76  02:32103  FADE  002 

0048 

60 

RETURN 

0049 

61 

CONTINUE 

0050 

70 

RETURN 

0051 

71 

CONTINUE 

0052 

80 

RETURN 

0053 

81 

CONTINUE 

0054 

90 

RETURN 

0055 

91 

CONTINUE 

005& 

100 

URITE(6>102)IBL0CK 

0057 

102 

format:'  block  '»I2»'  is  a low  pass  FILTER') 

0058 

101 

JTYP-DATA(LCTR) 

0059 

URITE(6>104)JTYPfDATA(LCTR-K) 

0060 

104 

format:'  1.  TYPE-'. 12.'  : 1-RC  LPF.  2-2ND  ORDER  BUTTERWORTH  : 

+/'  2.  CORNER  FREQUENCY-  'fE10.4r'  HZ') 

0061 

GO  TO  700 

0062 

110 

RETURN 

0063 

111 

CONTINUE 

0064 

700 

WRITE:6.710) 

0065 

710 

format:'  do  you  want  to  make  CHANOEST') 

0066 

READ:5.71S)X 

0067 

715 

FORMAT :A1 ) 

0068 

IF  :X.NE.YES)  RETURN 

0070 

717 

READ : 5 . 555 ) JPNTR . VALUE 

0071 

555 

F0RMAT:I10.F12.3) 

0072 

if: JPNTR. EQ.O)  00  TO  716 

0074 

DATA : LCTR+ JPNTR-1 ) -VALUE 

0075 

GO  TO  717 

0076 

716 

GO  TO  :11.21.31.41.51.61.71.81.91.101.111)IBTYP 

0077 

900 

WRITE:6.910)NBLK 

0078 

910 

format:'  error... only  '.I2.'  blocks  in  system  MODEL') 

0079 

RETURN 

0080 

END 
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27.  Subroutines  PE,  PE70 


Calls:  ERF,  CMQF 

Called  by:  SY60,  SY70 

Commons : None 


PE  and  PE70  are  identical  routines  which  compute  probabllity-of-error 
vs.  signal  or  energy-to-noise  ratios  for  the  six  types  of  systems  in  the 
old  version  system  level  analysis  package.  The  existence  of  both  routines 
is  a carry-over  from  the  original  two-region  overlay  structure  designed  for 
Implementing  the  demonstration  In  a PDP-11.  The  following  formulas  were 
used  for  the  analysis: 


P j. 

(1)  coherent  ASK:  ^ erf ((a  - 1)  /eNR/2)J 


1 - 

p 

m 

(2) 

non-coherent 

ASK;  P - 
e 

(1 

P . 

(3) 

coherent  PSK: 

e 2 1 

"l  - 

1 - 

P 

m 

^ 2 

(4) 

non-coherent 

PSK:  P - 

e 

1 ■ 
2 ® 

\ 1 

(5) 

coherent  FSK: 

1 

1 - 

1 - 

P 

m 

m 


m c 
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(6)  non-coherent  FSK: 


P 

e 


1 -SNR/2 

-je 


where  P 

e 

P 

m 

erf 

ENR 

SNR 

y 

a 

Q^.(x,y) 

X 


probability  of  error 
probability  of  mark  or  space 
error  function 
energy-to-nolse  ratio 
signal-to-noise  ratio 
normalized  decision  threshold 
decision  threshold 
complementary  Marcum  Q-f unction 
/2-SNR 
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SUBROUTINE  PE( PERROR * I . K » A » ENR ) 

BIMENSION  A(IO) 

TEMP=SQRT(ENR/2. ) 

P-A(l) 

D=A(9) 

GO  T0(10f20r30f40r50p60>I 

10  PERRUR='<P*ERF<  <D-1)»TEHP)  + (P-1 )»ERF< D»TEHP ) + l . )/2. 

RETURN 

20  PERROR=-<P*ERF< ( 1-D ) »TEMP ) + ( 1 -P ) »ERF < < l+D) *TEMP) -1 . )/2. 

RETURN 

30  SQT=SQRT<2.) 

PERROR=- < P*ERF  < ( 2-D ) * ( TEMP/SQT ) ) + < 1-P ) *ERF  < D* ( TEMP/SQT ) > -1 ) /2 . 
RETURN 

40  SNR=-ENR/2. 

IF(ABS(SNR> .6T.676. >60  TO  41 
PERR0R=0 . 5*EXP ( SNR ) 

RETURN 

41  PERROR-0. 

RETURN 

50  SNR— ENR 

IF<ABS(SNR) .GT.676. ) GO  TO  41 
PERR0R=0 . 5*EXP  < SNR ) 

RETURN 

60  Y«A(10)»«2/2 
X*SQRT(2*ENR> 

IF<ABS<Y) .GT.676. ) GO  TO  61 
PERROR- < 1 -P ) *EXP ( -Y ) +P»CMOF ( X t A( 10) ) 

RETURN 

61  PERR0R=P*CH0F<X»A(10) > 

RETURN 

END 
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SUBROUT I NE  PE70 ( PERROR  » I » K f A r ENR ) 

DIMENSION  A<10> 

TEMP“SQRT(ENR/2. > 

P=A(1) 

D*A<9) 

GO  T0(10f20f30>40r50>60)I 

1 0 PERROR= ( P*ERF ( < D-1 ) *TEMP ) + ( P- 1 ) *ERF ( D*TEMP  > + 1 . ) /2 . 

RETURN 

20  PERR0R=-<P*ERF<<1-D)»TEMP)  + (1-P)*ERF<  <1  + D)»TEMP)-1. )/2. 

RETURN 

30  S0T=S0RT(2.) 

PERROR*- ( P»ERF ( < 2-D ) * < TEMP/SQT ) ) + ( 1-P ) *ERF  < D* ( TEMP/SQT  > ) -1 ) /2 . 
RETURN 

40  SNR=-ENR/2. 

IF(ABS<SNR) .GT.676. >60  TO  41 
PERR0R=0 . 5«EXP ( SNR ) 

RETURN 

41  PERROR-0. 

RETURN 

50  SNR=-ENR 

IF(ABS(SNR). GT.676.)  GO  TO  41 
PERR0R=0 . 5*EXP ( SNR ) 

RETURN 

60  Y*AaO>**2/2 
X=SQRT(2*ENR) 

IF(ABS(Y) .GT.676. ) GO  TO  61 
PERROR*  < 1 -P ) *EXP  < - Y ) +P»CMQF ( X r A ( 1 0 ) > 

RETURN 

61  PERR0R*P«CM0F(X»A(10>) 

RETURN 

END 
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28.  Subroutine  PICTl 


Calls:  FORTRAN  graphics  library 

Called  by:  ASSIST 

Commons:  None 

PICTl  generates  a light  pen  sensitive  list  from  which  the  user  may 
choose  the  type  of  analysis  he  wants  to  pursue.  The  subpicture  tag  ITST 
Is  returned  to  the  calling  program  to  Identify  the  choice  and  set  the 
control  variable  ICOM  accordingly. 
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0001 

SUBROUTINE  PICTKITST) 

0002 

PIMENSION  IBUF(500) 

0003 

CALL  INITdBUFfSOO) 

0004 

D 

CALL  TIME<900) 

0005 

D 

1 

CALL  TIMR(I) 

0006 

D 

IF(I.NE.O)  GO  TO  1 

0008 

PAUSE  'TRY  RE  OR  RSU  TO  CONT' 

0009 

CALL  SCROLdf  lOOOfl) 

0010 

CALL  SUBPd) 

0011 

CALL  APNT(200. »500. »1»-6p1) 

0012 

CALL  TEXT< 'SYSTEM' ) 

0013 

CALL  ESUB 

0014 

CALL  SUBP(2) 

0015 

CALL  APNT(600.f500.fl»-6pl) 

0016 

CALL  TEXT < 'SUBFUNCTION' ) 

0017 

CALL  ESUB 

0018 

CALL  APNT<0.f 100.»0f-5»-l) 

0019 

CALL  TEXT<  ' 26- JUL-76 ' » 1 » ' DtNOTE* ' » 1 * 'SUBFUNCTION 

LEVEL  SHOULD 

+ ' BE  USED  TO  ACCESS  OLD  VERSION  SYSTEM 

LEVEL' ) 

0020 

10 

CALL  LPEN(MfITST) 

0021 

IF(M.NE.l)  GO  TO  10 

0023 

IFdTST.EQ.O)  GO  TO  20 

0025 

CALL  ERAS<1) 

0026 

CALL  ERAS(2) 

0027 

CALL  SCROL(-lf-lp-l) 

0028 

CALL  FREE 

0029 

RETURN 

0030 

20 

M»0 

0031 

GO  TO  10 

0032 

END 
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29.  Subroutine  PLTEND 


Calls:  None 

Called  by:  GTPLT 

Commons:  blank 

PLTEND  Is  used  to  wrap  up  the  plotting  routine  in  GTPLT  and  reset  the 
control  variables  ICOM  and  ICNTRL.  These  operations  are  done  in  this  sub- 
routine rather  than  in  GTPLT  in  order  to  reduce  memory  size  requirements 
for  the  overlay  structure. 
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0008 
0009 


SUBROUTINE  PLTEND 

COMMON  T. J»IBrIQ»IO»ICOMfICNTRL 

URITE(6>1) 

FORMAT</'  END  OF  PLOT') 

ICOM-2 

ICNTRL-2 

PAUSE  ' TYPE  RE  TO  CONTINUE' 

RETURN 

END 
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30.  Subroutine  PRAB 


Calls:  ERF,  SNR 

Called  by:  SYSAST 

Commons:  CUPB,  CYC  (CUPB  is  not  used) 

PRAB  is  the  analysis  routine  for  the  three  types  of  ASK  systems 
available  in  the  new  version  system  level  package.  The  control  variable 
M directs  program  flow  to  the  appropriate  sections  for  the  system  under 
consideration.  This  routine  generates  an  array  of  probablllty-of-error 
data  which  is  later  used  to  produce  bit-error-rate  curves  on  the  CRT. 


(1) 

(2) 


Non-coherent  ASK: 
Coherent  ASK;  P 

e 


(3)  Correlation  receiver  ASK: 


whe  re  P 

e 

P 

m 

y 

^c 

bo 

SNR 

X 

erfc 

a 

ECR 


probability  of  error 
probability  of  mark 
normalized  decision  threshold 
complementary  Marcum  Q-function 
normalized  decision  threshold 
signal  to  noise  ratio 
/2-SNR 

complementary  error  function 
decision  threshold 
energy  contrast  ratio. 


( 


A-78 


FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03!26t06 


PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 

0013 

0014 

0015 

0016 
0018 

0019 

0020 
0022 

0023 

0024 

0025 

0026 
0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0037 

0038 

0039 


SUBROUTINE  PRAB(H) 

C0MN0N/CUPB/UPB(40) f IBND 
C0MM0N/CYC/YC<40) 

DO  1 I-lr40 
1 YC(I)«0.0 
URITE(6f 100) 

100  FORHAT('  WHAT  IS  THE  MARK  PROBABILITY?') 

READ(5>101)  PM 

101  F0RMAT(F10.3) 

SQRT2=S0RT<2. ) 

IF(M.EQ.3)  GO  TO  30 
URITE(6>103) 

103  FORMATC'  WHAT  IS  THE  NORMALIZED  DECISION  THRESHOLD?') 
READ(5>101)  Y 

IF<M.EQ.2)  00  TO  20 
DO  11  L>1»40 

YC  < L ) - ( 1 . -PM ) *EXP  < - ( Y**2 . ) /2 . ) +PM4CMQF  < SORT ( 2 . *SNR  < L ) ) » Y ) 
IF(YC(L).LT.lE-6)  RETURN 
11  CONTINUE 
RETURN 

20  DO  21  L«lr40 

YC(L)=PM*( l-( ,5)*ERF( {Y/S0RT2)-SQRT(SNR(L) ) ) ) 

* +(1-PM)*< .5*ERF(Y/S0RT2)) 

IF(YC<L) .LT.lE-6)  RETURN 

21  CONTINUE 
RETURN 

30  URITE(6rl04) 

104  FORMAT('  UHAT  IS  THE  DECISION  THRESHOLD?  (.5  IS  NORMAL)') 
READ(5fl01)  Y 

DO  31  L-lf40 

YC<L)*<PM/2)*(1.+ERF( (Y-1. )*SQRT(SNR<L) ))) 

* +(<1-PM)/2)»(1-ERF(Y»SQRT(SNR(L)))) 

IF(YC<L) .LT. lE-6)  RETURN 

31  CONTINUE 
RETURN 
END 
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31.  Subroutine  PRCTRL 


Calls:  PROCES 

Called  by:  MAIN 

Commons:  HSTORY,  blank,  CDATA,  CCIRKT,  CWORD,  CDATIN,  CRESLT,  CBER, 

CBINRY 


PRCTRL  is  the  controller  which  directs  the  simulation  of  a system 
configured  from  subfunction  blocks.  It  maintains  status  information  in 
control  variables  while  processing  blocks  of  time-sampled  waveform  data 
through  the  configured  system.  Its  operation  is  flow  charted  in  Figure  A 
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SUBROUTINE  PRCTRL 
COMMON/HSTORY/A ( 10  f 4 ) 

COMMON  T. J. IBLK»IOCNTRrIDRAFX»ICOM»ICNTRL»IPNTS 
COMMON/CDATA/JCTRf DATA<50> 

C0MM0N/CClRKT/NBLK»ITYP<10f2) 

COMMON/CUnRD/WORB< 10) 

COMMON/CDATIN/BATAIN( 100) fDPASTl f DPAST2 
COMMON/CRESLT/RESULT( 100) fRPASTl »RPAST2 
C0MMON/CBER/BER(4O)/CBINRY/BINARY(100) >IQUORO(S) 

120  N0UT=U0RD<2) 

IF(NOUT.LE.NBLK)  GO  TO  291 
URITE(6f 7001 )NBLK 
10  ICOM-7 
RETURN 

291  IF(N0UT-IBLK)295F295f293 
293  ITMP=*IBLK+1 

BO  292  KBLK=ITMP»NOUT 
IBTYP=ITYP(KBLK7l) 

JCTR=ITYP(KBLK»2) 

1BLK=KBLK 

IF(IBTYP.GE.3.AND.IBTYP,LE.8)  GO  TO  296 
CALL  PROCES(IBTYP) 

IF<IBTYP.E0.2)  00  TO  292 
A<KBLKf1 )=RESULT(NPTS-1> 

A < KBLK » 2 ) =RESULT ( NPTS ) 

A(KBLK»3)=DATAIN(NPTS-1) 

A(KBLK»4)=DATAIN<NPTS) 

292  CONTINUE 

295  URITE<6r7002)  IBLK 
GO  TO  10 

296  1QCNTR=I0CNTR+1 
IF(iaCNTR.GT.IPNTS)  00  TO  295 
DO  294  JBLK*KBLKtNOUT 
IBTYP=1TYP< JBLKfI) 

JCTR*ITYP(JBLK.2) 

IBLK-JBLK 

294  CALL  PROCESS IBTYP) 

GO  TO  296 

7001  FORMAT('  ERROR ....  THERE  ARE  ONLY  '»I2»'  BLOCKS  IN  THE  SYSTEM') 

7002  FORMAT<'  PROCESSING  COMPLETE  THROUGH  BL0CK'»I3) 

RETURN 

END 
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32.  Subroutine  PRFS 


Calls:  ERF,  SNR 

Called  by:  SYSAST 

Commons:  CYC 


PRFS  Is  the  analysis  routine  for  the  two  types  of  FSK  systems  avail- 
able In  the  new  version  system  level  package.  Variable  M directs  the 
program  flow  to  the  appropriate  sequence.  The  data  Is  saved  In  array  YC 
for  later  conversion  and  plotting.  The  formulas  used  are  given  below: 


(1)  Non-coherent  FSK:  ^ ^ ® SNR/2 

(2)  Matched  filter  FSK:  ^ ~ <»)*^ECR/2)] 

+ — {}  ~ erf(a/ECR/2)] 


where  P 

e 

erf 

a 

ECR 

SNR 

P 

m 


probability  of  error 
error  function 
decision  threshold 
energy  contrast  ratio 
slgnal-to-nolse  ratio 
probability  of  mark. 
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SUBROUTINE  PRFS<H) 

C0MM0N/CYC/YC<40> 

SQR(L)»S0RT(SNR(L)/2. ) 

DO  1 I>lt40 
1 YC(I)=0. 

IF<M.EQ.9)  GO  TO  90 

DO  80  1-1 r40 

YC( I )=.5*EXP(-SNR<I)/2. ) 

IF(YC<I).LT.l.E-6)  RETURN 
80  CONTINUE 
RETURN 

90  URITE(6>100> 

READ(S>101)  PH 
URITE(6rl02) 

READ(5»101>  Y 
DO  91  I-1.40 

YC(I)=<PH/2. )»(1.-ERF( (2.-Y)*SQR(I>)) 

« +<<1-PH)/2.)*<1.-ERF<Y*SQR(I))> 

IF<YC(I).UT.l.E-6)  RETURN 

91  CONTINUE 
RETURN 

100  FORMAT('  UHAT  IS  THE  MARK  PROBABILITY?  (NORMAL  IS  0.5)') 

101  F0RMAT(F10.3) 

102  FORMAT('  UHAT  IS  THE  DECISION  THRESHOLD?  (NORMAL  IS  1.0)') 
END 


33.  Subroutine  PROCES 


Calls:  SIGGEN,  SMPHLD,  QNTIZER,  LPF,  other  unwritten  routines 

Called  by:  PRCTRL 

Commons:  None 

PRCX:ES  Is  a switching  routine  that  calls  the  proper  function  simulation 
routine  for  processing  the  signal. 


I 
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0001 

SUBROUTINE  FROCES(I) 

0002 

GO  TO  < Ir2r3f4r5r6r7»8r9>10rll)>l 

0003 

1 

CALL  SIQGEN 

0004 

RETURN 

0005 

2 

CALL  SHPHLO 

0006 

RETURN 

0007 

3 

CALL  DNTI2ER 

0008 

RETURN 

0009 

4 

CALL  NCOOER 

0010 

RETURN 

0011 

5 

CALL  XMTR 

0012 

RETURN 

0013 

6 

CALL  CHANNL 

0014 

RETURN 

0015 

7 

CALL  RCVR 

0016 

RETURN 

0017 

8 

CALL  OECOEO 

0018 

RETURN 

0019 

9 

CALL  OCODER 

0020 

RETURN 

0021 

10 

CALL  LPF 

0022 

RETURN 

0023 

11 

CALL  BPF 

0024 

RETURN 

0025 

END 

I 


A-87 


34.  Subroutine  PRPSD 


Calls:  ERF,  SNR 

Called  by:  SYSAST 

Commons : CYC 

PRPSD  is  the  analysis  routine  for  the  three  types  of  binary  PSK 
systems  available  In  the  new  system  level  package.  Variable  M directs 
program  flow  to  the  appropriate  sequence.  Both  the  coherent  PSK  and  the 
correlation  receiver  PSK  systems  use  the  same  formula  as  shown  below. 

The  data  is  saved  in  array  YC  for  later  conversion  and  plotting. 

(1)  Coherent  PSK  and  correlation  receiver  PSK: 

Pg  - [l  - erf((l  - [l  - erf((l  + 

(2)  DPSK:  P - 4 e"^^® 

e 2 

where  P^  - probability  of  error 

P ” probability  of  mark 
m 

erf  ■ error  function 

ECR  “ energy  contrast  ratio  (slgnal-to-nolse  ratio  for 

coherent  case) 

SNR  » slgnal-to-nolse  ratio 
a • decision  threshold. 


I 
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SUBROUTINE  PRPSD(M) 

COMMON/CYC/YC ( 40  > 

HO  1 1=1 f 40 
1 YC<I)=0. 

IF<M.E0.6)  GO  TO  60 
URITE(6»100) 

REAIi<5»101)  PS 
URITE(6f 102) 

READ (5. 101)  Y 

100  FORMATC'  WHAT  IS  THE  HARK  PROBABILITY?  (NORMAL  IS  .5)') 

101  F0RMAT(F10.3> 

102  F0KMAT('  WHAT  IS  THE  DECISION  THRESHOLD?  (NORMAL  IS  0.0)') 

DO  41  1=1.40 

YC ( I ) = ( PS/2 . ) * ( 1 . -ERF ( ( 1 + Y ) *SORT ( SNR ( I ) ) > ) 

* +( ( l-PS)/2. )*( 1 .-ERF( (1-Y)*SQRT(SNR(I) ) ) ) 

IF(YC(I).LT.lE-6)  RETURN 
41  CONTINUE 
RETURN 

60  DO  61  1=1.40 

YC(I)  = .5*EXP(-SNR(D) 

IF(YC(l).LT.lE-6)  RETURN 

61  CONTINUE 
RETURN 
END 
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35.  Subroutine  PRQ 


Calls:  SNRF,  SNR,  ERF,  R3YNO 

Called  by:  SYSAST 

Connnons:  CYC,  CUPB 

PRQ  Is  the  analysis  routine  for  the  four-phase  PSK  system  included 
in  the  new  system  level  package.  Variable  M is  not  used  in  this  routine 
even  though  it  is  in  the  argument  list.  This  routine  optionally  generates 
a second  set  of  data  for  upper-bound  plotting  and  stores  it  in  array  UPB. 
The  QPSK  data  is  stored  in  array  YC.  If  the  optional  plot  is  desired,  a 
control  variable  is  set  to  Inform  the  calling  program  upon  return.  The 
formulas  used  are  shown  below. 

(1)  QPSK:  Pg  - erfc (/SNR/2)  [l  ~ erfc (/SNR/2)] 

(2)  Upper  bound:  P^  ^ erfc^/sW 

where  P^  “ probability  of  error 

erfc  ” complementary  error  function 
SNR  = signal-to-nolse  ratio 
m “ no.  of  phase  states. 
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SUBROUTINE  PRQ(M) 

C0MM0N/CYC/YC(40) 

COMMON/CUPB/UPB ( 40 ) f IBND 
DATA  HY/IHY/ 

ERFC(Z)=1-ERF(Z) 

SNRF ( L ) =SQRT ( SNR ( L) /2 , ) 

DO  1 1=1 r 40 
YC( I )*0. 

1 UPB(I)=0. 

PI=3. 14159 
URITE(6f 100) 

CALL  R3YN0<KK) 

IF(KK.NE.IO)  GO  TO  71 
URITE(6»102) 

READ(5»103)  NSTATE 

71  DO  72  I=lf40 

YC ( I ) =ERFC ( SNRF  < I ) ) * < 1 . - . 25CERFC  < SNRF ( I ) ) ) 

IF(YC<I).LT.l.E-6)  GO  TO  73 

72  CONTINUE 

73  IF(KK.NE.IO)  RETURN 
IBND=1 

DO  74  1=1,40 

UPB< I )=ERFC<  <SQRT(SNR(I) ) >*SIN (PI/FLOAT (NSTATE) ) ) 
IF<UPB<I).LT.l.E-6)  RETURN 

74  CONTINUE 
RETURN 

100  FORMAT('  DO  YOU  WANT  TO  COMPARE  RESULTS  WITH  UPPER  BOUND  PLOT', 

+ ' FOR  M-ARY  SYSTEMS?') 

101  FORMAT(Al) 

102  FORMAT('  HOW  MANY  PHASE  STATES?') 

103  FORMAT(IIO) 

END 
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36.  Subroutine  QNTIZER 
Calls:  None 

Called  by:  PROCES 

Commons:  CRESLT,  CBINRY,  CDATA,  blank 

QNTIZER  Is  a function  simulation  for  what  might  be  more  properly 
called  a PCM  encoder.  It  generates  a serial  binary  output  waveform 
representing  the  m-blt  quantization  of  the  input  sample  amplitude,  where 
ro  ranges  from  1 to  5.  The  output  waveform  is  stored  in  array  BINARY  as  5 
bits  with  20  time  sampled  values  per  bit,  optionally  bandlimited.  The 
routine  uses  a successive  approximation  technique  to  convert  the  input 
amplitude  into  a binary  word.  QNTIZER  writes  the  idealized  values  of  the 
output  to  the  terminal  device  while  the  actual  time  waveform  is  generated 
as  described  above. 
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0001 

SUBROUTINE  QNTIZER 

0002 

COMMON/CRESLT/RESULT( 100) 

0003 

COMMON/CBINRY/PINARYC 100) »I0U0RD(5) 

0004 

COMMON/CBATA/JCTRf DATA(50) 

0005 

COMMON  TfJJJf IBLK»IOCNTR 

0006 

DIMENSION  A(20) 

0007 

MIN=DATA< JCTR) 

oooe 

RG=DATA< JCTR+1 )-MIN 

0009 

NUMBIT=IFIX(ALOG(DATA< JCTR+2) )/AL0G<2.  ) + ,99) 

0010 

DATA< JCTR+2)=2**NUMPIT 

0011 

ISECT=DATA( JCTR+6) 

0012 

IF(ISECT.EO.O)  GO  TO  10 

0014 

BLKBU=DATA ( JCTR+7) 

0015 

EAT»FEAT1 < ISECT.BLKBU) 

0016 

10 

IBPT=11-DATA( JCTR+5)/10. 

0017 

IEPT=10+DATA( JCTR45)/10. 

0018 

ICNT=0 

0019 

M1N1*HIN 

0020 

DO  45  J=lfNUMBIT 

0021 

TST=MIN1+RG/2*»J 

0022 

IF<RESULT< lOCNTR) .GT.TST)  GO  TO  20 

0024 

DO  11  I»lf20 

0025 

A(I)-0. 

0026 

11 

IF(IBPT.LE.I.AND.I.LE.IEPT)  A( I ) =DATA< JCTR44 ) 

0028 

IQUORD< J)=DATA< JCTR+4) 

0029 

GO  TO  30 

0030 

20 

DO  21  I»l>20 

0031 

A(I)-0. 

0032 

21 

IF<IBPT.LE,I.AND.1,LE.1EPT)  A<1)-1. 

0034 

IQUORO( J)-l 

0035 

MINl-TST 

0036 

30 

IF(ISECT.EQ.O)  GO  TO  40 

0038 

DO  35  I^ltlSECT 

0039 

35 

CALL  SAHLPF(EATfA) 

0040 

40 

DO  45  I«l»20 

0041 

ICNT-ICNT+1 

0042 

45 

BINARY( ICNT)-A< I ) 

0043 

URITE<6>100) (IQUORD<I)f I-lfNUMBIT) 

0044 

100 

F0RMATJ513) 

0045 

RETURN 

0046 

END 
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37.  Subroutine  R3YN0 


Calls : FORTRAN  Graphics  Library 

Called  by:  SYSAST,  SYSINT 

Commons : None 

R3YN0  sets  up  a region  3 display  buffer  and  restores  a light -pen- 
sensitive  'YES-NO'  list  to  the  CRT  screen.  When  a hit  occurs,  the  sub- 
picture tag  corresponding  to  a 'YES'  or  a 'NO'  is  returned  to  the  calling 
program  through  the  variable  I. 
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0001 

SUBROUTINE  R3YN0(I) 

0002 

DIMENSION  IBUFdOO) 

0003 

CALL  INITdBUFf  100) 

0004 

CALL  SCR0L<5»900*5> 

OOOS 

CALL  RSTR('YNO') 

0006 

10 

CALL  LPEN(M»I) 

0007 

IF(M.EO.O)  GO  TO  10 

0009 

IF(I.EQ.O)  GO  TO  20 

0011 

CALL  FREE 

0012 

CALL  SCR0L<-1»-1.-1) 

0013 

RETURN 

0014 

20 

H-0 

0015 

GO  TO  10 

0016 

END 

38.  Subroutines  SAHLPF,  SMPLPF 
Calls:  None 

Called  by:  SMPHLD  (SMPLPF),  QNTIZER  (SAHLPF) 

Commons:  blank,  HSTORY 

SAHLPF  and  SMPLPF  are  Identical  routines  which  are  used  to  simulate 
band-limited  characteristics  for  the  elements  being  modeled  In  the  calling 
programs.  Each  performs  a copying  operation  to  obtain  an  Input  array, 
retrieves  past  history  Information  from  array  C In  common  block  HSTORY, 
processes  the  Input  array  through  a single  section  RC  low  pass  filter, 
updates  the  past  history  array.  Depending  on  user-supplied  parameters, 
the  calling  program  c ills  SAHLPF  or  SMPLPF  one,  two,  or  three  times  In 
succession  to  simulate  a one,  two,  or  three  section  filtering  character- 
istic. The  formula  Is  the  same  as  used  In  subroutine  LPF  for  the  simple 
RC  case.  The  duplication  of  routines  was  required  In  the  original  2-level 
overlay  structure  but  causes  no  problems  In  the  existing  3-level  structure. 
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SUBROUTINE  SAHLPF(EAT>A) 

C0HH0N/HST0RY/C(10f4) 

COMMON  T>IfIBLK 
DIMENSION  A(20)rB(20) 

DO  10  K>1>20 
10  B(K)=A(K) 

SMPR1=C( IBLK.2) 

SMPD1=C( IBLK»4) 

A< 1 )=EAT*SMPR1+(1-EAT)*SMPD1 
DO  20  K=«2»20 

20  A(K)=EAT*A<K-1 )+ < 1-EAT ) *B( K-1 > 

C(IBLK>4>»B(20) 

C( IBLK>2)-A<20) 

RETURN 

END 
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SUBROUTINE  SMPLPF(EAT»A) 
COMMON/HSTOR Y/C ( 10 i 4 ) 

COMMON  T»I»IBLK 
DIMENSION  A(20)fB<20> 

DO  10  K-l>20 

10  B(K>«A(K> 

SMPK1=C( IBLKt2) 

SMPD1=C(IBLK»4) 

Ad)  =EAT*SMPR1  + ( 1-EAT  ) «SHP01 
DO  20  K=2f20 

20  A(K)»EAT*A<K-1)+(1-EAT)*B(K-1) 
C< IBLKf4)=B<20) 

C(IBLKf2>>A(20) 

RETURN 

END 
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39.  Subroutine  SBCTRL 


Calls:  DATIT,  FETCH,  ELFIND,  STRDTA,  GOOF,  MODIFY,  TIMPLT 

Called  by:  MAIN 

Conunons:  HSTORY,  blank,  CDATA,  CCIRKT,  CWORD,  CDATIN,  CRESLT,  CBER 

CBINRY 

SBCTRL  is  the  main  control  program  for  the  subfunction  level  analysis 
package.  It  prompts  the  user  for  Input  with  a character  and  a line 
feed.  Then  the  command  input  and  decoding  routines  are  called,  and  the 
returned  control  variable  LTYP  is  used  to  direct  the  program  flow  with 
the  computed  GO  TO  statement.  Since  PDP-11  FORTRAN  does  not  allow  entry 
points  to  be  set  directly  in  subroutines,  the  control  variable  ICNTRL  and 
the  logical  IF  statement  are  used  to  achieve  the  same  effect.  Re-entry 
at  statement  label  1 occurs  after  a normal  exit  from  either  of  the  two 
system  level  analysis  packages.  The  large  number  of  calls  to  GOOF  and 
the  CONTINUE  statements  allow  for  later  addition  of  subroutine  calls  or 
other  operations  as  the  software  is  developed,  without  extensive  changes 
to  the  existing  programs. 
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0001 

SUBROUTINE  SBCTRL < ISYSTH) 

0002 

COMMON/HSTORY/A( 10.4) 

0003 

COMMON  T . J f I BLK , lOCNTR » IGRAFX . ICOM . ICNTRL » IPNTS 

0004 

COMMON/CDATA/ JCTR . DATA  < 50  > 

0005 

COMMON/CCIRKT/NBLK. ITYP< 10.2) 

0006 

COMMON/CUORD/UORDC 10) 

0007 

COMMON/CDATIN/DATAINl 100) . DPASTl . DPAST2 

oooe 

COMMON/CRESLT/RESULT< 100) . RPASTl . RPAST2 

0009 

COMMON/CBER/BER<40)/CBINRY/BINARY<100) .1QU0RD(5) 

0010 

IF  < ICNTRL. EQ.l)  GO  TO  1 

0012 

200 

NBLK-0 

0013 

210 

DO  203  LCNT-1.10 

0014 

DO  203  JCNT-1.4 

0015 

203 

A<LCNT. JCNT)-0,0 

0016 

URITE(6.8300) 

0017 

8305 

FORMAT! 14) 

0018 

8300 

FORMAT!'  SPECIFY  NO.  OF  POINTS  TO  PROCESS  THRU  QUANTIZER 

0019 

READ!S.B305>  IPNTS 

0020 

J"1 

0021 

220 

IBLK-0 

0022 

IQCNTR-0 

0023 

JCTR-1 

0024 

ITYP!1.2)-1 

0025 

1 

CALL  DATIT 

0026 

URITE!6.7010) 

0027 

7010 

FORMAT !2H  «) 

0028 

CALL  FETCH  !L.NBAD) 

0029 

IF  !NBAD.EO.O)  GO  TO  1 

0031 

CALL  ELFIND  !UORD.LTYP) 

0032 

GO  TO  ! 10.  20.  30.  40.  50.  60.  70.  80.  90.100. 
f 110.120.130.140.150.160.170.180.190.200. 
f 210.220.230.240.250.260.270.280.290.300. 
f 310.320.330.340. 350 . 360 . 370 . 380 . 380 . 380 . 
f 380. 380. 380. 380. 380. 460). LTYP 

0033 

10 

CALL  STRDTA!5) 

0034 

NTYP»1 

0035 

GO  TO  600 

0036 

20 

CALL  STRDTA!3) 

0037 

NTYP-2 

0038 

GO  TO  600 

0039 

30 

CALL  STRDTA18) 

0040 

NTYP-3 

0041 

GO  TO  600 

0042 

40 

CALL  GOOF 

0043 

GO  TO  1 

0044 

50 

CALL  GOOF 

0045 

GO  TO  1 

0046 

60 

CALL  GOOF 

0047 

GO  TO  1 

0048 

70 

CALL  GOOF 

0049 

GO  TO  1 

0050 

80 

CALL  GOOF 

0051 

GO  TO  1 

0052 

90 

CALL  GOOF 
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0053 

GO  TO  1 

005A 

100 

CALL  STRDTA<2) 

0055 

NTYF^IO 

0056 

GO  TO  600 

0057 

110 

CALL  GOOF 

0058 

GO  TO  1 

0059 

120 

ICOM-5 

0060 

RETURN 

0061 

130 

JBLK*=U0RD(2) 

0062 

CALL  MODIFYIJBLK) 

0063 

GO  TO  1 

0064 

140 

CALL  GOOF 

0065 

GO  TO  1 

0066 

150 

CALL  TIMPLT 

0067 

GO  TO  1 

0068 

160 

CALL  GOOF 

0069 

GO  TO  1 

0070 

170 

ICOM-14 

0071 

RETURN 

0072 

180 

CALL  GOOF 

0073 

GO  TO  1 

0074 

190 

CALL  GOOF 

0075 

RETURN 

0076 

230 

ISYSTH-1 

0077 

231 

ICOM-2 

0078 

RETURN 

0079 

240 

ISYSTH=»2 

0080 

GO  TO  231 

0081 

250 

ISYSTM-3 

0082 

GO  TO  231 

0083 

260 

ISYSTM-4 

0084 

GO  TO  231 

0085 

270 

ISYSTH-5 

0086 

GO  TO  231 

0087 

280 

ISYSTM-6 

0088 

GO  TO  231 

0089 

290 

ICOM-10 

0090 

RETURN 

0091 

300 

CONTINUE 

0092 

310 

CONTINUE 

0093 

320 

CONTINUE 

0094 

330 

CONTINUE 

0095 

340 

CONTINUE 

0096 

350 

CONTINUE 

0097 

360 

CONTINUE 

0098 

370 

CONTINUE 

0099 

380 

URITE(6f381 ) 

0100 

381 

FORMAT!'  INVALID  COMMAND  IN  SUBFUNCTION  ANALYSIS') 

0101 

GO  TO  1 

0102 

460 

URITE(6»7003) 

0103 

7003 

FORMAT  ('  UNDEFINED  STATEMENT  ') 

0104 

GO  TO  1 

0105 

600 

NBLK*NBLK+1 

0106 

ITYP(NBLK»1 )-NTYP 
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0107 

OlOe 

0109 


ITYP  <NBLK+1 r2)-JCTR 

GO  TO  1 

END 
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40.  Subroutine  SIGGEN 


Galls:  None 

Called  by:  PROCES 

Conunons:  CRESLT,  CDATA,  blank 


SIGGEN  is  the  signal  generator  element  for  the  function-level  analysis 
package.  It  generates  either  sine  or  square  waves  with  characteristics 
specified  by  the  user.  The  time  sampled  waveform  output  Is  stored  In  array 
RESULT.  The  control  variable  J keeps  track  of  the  location  of  the  last 
sample  relative  to  the  beginning  of  the  period. 

The  data  is  generated  in  blocks  of  100  samples  at  a time,  and  the 
variable  J is  used  to  remember  where  the  last  sample  of  the  previous  block 
was  located  so  the  generator  can  create  a continuous  signal  without  transient 
effects  between  sets  of  data.  The  formulas  shown  below  were  used. 


(1)  Square  wave:  x(t) 


amplitude  + DC  offset,  1st  half  period  ) 
-amplitude  + DC  offset,  2nd  half  period/ 


(2)  Sine  wave:  x(jT)  = Asin(2iTfjT)  + DC  offset 


where  A = amplitude  (volts) 

F » frequency  (Hz) 

T = (F  • (samples/period)) 
j = current  sample  pointer. 
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RAGE  001 


0001 

0002 

0003 

000^ 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0014 

0015 
0017 

0019 

0020 
0022 

0023 

0024 

0025 

0026 
0027 

0029 

0030 

0031 


SUBROUTINE  SIGGEN 
COMMON/CRESLT/RESULTdOO) 
COMMON/'CIiATA/JCTRf  UATA(50> 

COMMON  TfJ 
AMF-=DATA(  JCTR+1  ) 

FREO  = [iAT  A ( JCTR+2  ) 

PCOFST=TiATA(  JCTR+3) 

ISMPRD=DATA< JCTR+4) 

T = l/<FREa*ISMPPIi) 

U=2.*3. 141927*FREQ*T 
IHALF  = IiATA(JCTR+4)/2. 

IF<riATA(  JCTR)  .EQ.O)  GO  TO  10 
DO  20  K=l»100 

IF( J.LE. IHALF)  RESULT < K ) =AMP+DCOFST 
IF( J.GT.IHALF)  RESULT ( K )=-AMP+DCOFST 
J=J+1 

IF< J.GT.ISMPPD)  J»1 
20  CONTINUE 
RETURN 

10  DO  30  K=l»100 

RESUL  T ( K ) =AMP*SIN ( J*U ) +DCOFST 
J=J+1 

IF( J.GT.ISMPPD)  J»1 
30  CONTINUE 
RETURN 
END 
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41.  Subroutine  SLST 


Calls:  FORTRAN  Graphics  Library 

Called  by:  SYSAST 

Commons : None 

SLST  sets  up  a region  2 display  buffer  and  restores  a light  pen 
sensitive  list  of  nine  types  of  communications  systems  available  for 
analysis  In  the  new  system  level  package.  It  then  waits  for  a light 
pen  hit  and  returns  the  sub-picture  tag  N of  the  hit  to  the  calling 
program. 


4 
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0001 

0002 

0003 

0004 

0005 

0006 
0007 
0009 
0011 
0012 

0013 

0014 

0015 


SUBROUTINE  SLST(N) 
rtIMENSION  IEtUF(200) 
CALL  INIT< IBUF»200) 
CALL  SCR0L<5»900r5) 
CALL  RSTR<'SLST') 

10  CALL  LPEN(M»N) 

IF<H.EQ.O)  GO  TO  10 
IF(N.EQ.O)  GO  TO  20 
CALL  FREE 
RETURN 
20  M»0 

GO  TO  10 
END 
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42.  Subroutine  SMPHLD 


Calls:  HOLD,  SMPLPF 

Called  by:  PROCES 

Commons:  CDATA,  CCIRKT,  CRESLT,  HSTORY,  blank 

SMPHLD  simulates  a sample-and-hold  device,  optionally  with  band- 
limited  characteristics.  It  does  a look-ahead  in  the  ITYP  array  to  deter- 
mine if  it  is  followed  by  a valid  element,  in  this  case  the  quantizer.  If 
so,  it  saves  only  the  particular  output  sample  needed  for  input  to  the  next 
element.  If  not,  it  writes  the  entire  set  of  generated  sample  points  to  a 
disk  file  named  FTN12.DAT.  The  operation  of  SMPHLD  is  detailed  in  the  flow 
chart.  Figure  A-2.  The  program  listing  shows  the  lines  with  a 'D'  in 
column  1 as  being  Ignored.  This  occurred  in  the  listing  only.  The  final 
compiled  program  includes  the  extra  lines. 
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START  SMPHLD 


YES 


RETURN 


LPF  THE  20  POINTS 


WRITE  TO  DISC  FILE 

COUNT  - C 

OUNT  + 1 

Figure  A-2.  Operation  of  Subroutine  SMPHLD 
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1 

RETURN 


LOOK  AHEAD  TO  FIND  OUT 
WHICH  POINT  SH'^LLD  BE 
SAVED  FOR  INPU.  TO 
QUANTIZER 


ICOUNT  - 1 


DO  HOLD  OPERATION  FOR 
RESULT  (ICOUNT) . TWENTY 
POINTS  OUTPUT  FOR  EACH 
POINT  INPUT. 


RESULT  (ICOUNT)-^DESIRED 
OUTPUT  POINT 


ICOUNT  - ICOUNT  + 1 

1 

Figure  A-2.  Operation  of  Subroutine  SMPHLD  (continued). 
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0001 

SUPROUTINE  SMPHLD 

0002 

PIMFNSION  A<20) 

0003 

INTEGER  nURF'CT. UPPER 

0004 

C0MM0N/CPArA/JCrR.PATA(50) 

0005 

COMMON/CC I RK  T/NULK  » I T YP ( 10  » 2 > 

0006 

COMMON/CRESl.T/RESULT(  100) 

0007 

COMMON/HSTORY/C< 10f4) 

0008 

COMMON  Tt Jr IPLKrIQCNTR 

D 

REUINP  12 

0009 

PURrCT=PATA( JCTR) 

0010 

ISECT=PATA( JCTR41) 

001  1 

PLKPU  = riATA(  JCTR+2) 

0012 

LOUE  R » 1 0 - PURPC  T / 1 0 

0013 

UPPER»10+PURPCT/10 

0014 

IF< ISECT.EO.O)  GO  TO  15 

0016 

EAT«EEAI < ISECT.BLKBU) 

0017 

15 

IF(  ITYP< IBLK  + 1 »1 ) .EQ.3)  GO  TO 

P 

PO  10  I«1.100 

P 

CALL  HOLIK  ArUPPERrLOUERrI) 

P 

IF  USECT  .EO.O)  GO  TO  10 

P 

PO  22  K»lfISECT 

P 

22 

CALL  SMFLPF(EATtA) 

P 

10 

WRITE  <12'12)  <A<K)»K-1»20) 

0019 

RETURN 

0020 

100 

IPNT«PATA< JCTR+6)/5 

0021 

PO  140  I-ltlOO 

0022 

CALL  HOI P(A»UPPER.LOUERfI) 

0023 

IF(ISECT.EO.O)  GO  TO  140 

0025 

PO  135  K-l.ISECT 

0026 

135 

CALL  SMPLPF(EAT.A) 

0027 

140 

RESULT! I >»A< IPNT) 

0028 

IQCNTR-0 

0029 

RETURN 

0030 

END 
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43.  Function  SNR 


Calls:  None 

Called  by:  PRAB,  PRFS,  PRPSD,  PRQ 

Commons : None 

SNR  computes  a value  of  slgnal-to-nolse  ratio  which  depends  on  the 
value  of  the  argument  L.  For  L from  1 to  41,  SNR  generates  values  which 
range  in  dB  from  -10  to  30.  The  formula  Is  given  below: 

L-11 
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PACE  001 


0001 

0002 

0003 

0004 


FUNCTION  SNR<L) 
SNR»10.»«<FL0AT<L-11)/10. ) 
RETURN 
END 
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44.  Function  SNRF 


Calls:  AMP,  ETA 

Called  by:  SYSTEM,  SY60 

Commons : None 

SNRF  evaluates  and  returns  the  following  expression: 

SNRF  - A^/2N, 

where  A - amplitude  of  received  sinusoid 

N = noise  power 

- nB  /2 
n 

n “ 2 • noise  spectral  density 

B » noise  bandwidth  of  receiver  In  Hz. 
n 

Note  that  some  of  these  calculations  take  place  In  AMP  and  ETA. 
The  result  la  a linearized  (not  In  dB)  value  of  slgnal-to-nolse  ratio. 
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FUNCTION  SNRF(AfK) 

DIHENSION  A<10> 

BN=A<9) 

PN=ETA<A»K)*BN/2. 

SNRF=»AMP  ( A ) **2/ < 2 . *PN) 

RETURN 

END 
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^5.  Subroutine  STRDTA 
Calls:  None 

Called  by:  SBCTRL 

Coitimons:  CDATA,  CCIRKT,  CWORD 

STRDTA  takes  parameters  for  function  blocks  from  array  WORD  (placed 
there  by  FETCH)  and  stores  them  in  the  sequential  data  storage  array  DATA 
beginning  at  the  location  specified  by  JCTR.  This  operation  is  basic  to 
the  concept  of  configuring  a system  from  a set  of  predefined  blocks  having 
variable  parameters  associated  with  them.  The  arrays  ITYP  and  DATA  together 
define  the  structure  of  the  configured  system. 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 


SUBROUTINE  STRDTA(Kl) 
COMMON/CDATA/  JCTR f DATA ( 50) 
COMMON  /CCIRKT/  NBLK f I TYP( 10 » 2 ) 
COMMON  /CUORD/  WORO(IO) 
JCTR=ITYP<NBLK+  1»2) 

00  10  I°1>K1 

10  DATA< JCTR+I-1 )=U0RD(I+1) 
JCTR=JCTR+K1 
999  RETURN 
END 
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46.  Subroutine  SYSAST 


Calls:  SYSINT,  SLST,  ABl,  AB2 , AB3,  PSl,  PS2,  DPS,  QPS,  FSl , FS2, 

SYSMSS,  R3YNO,  PRAB,  PRPSD,  PRFS,  PRQ,  CNVT,  DSPSNR,  DSPECR 

Called  by:  MAIN 

Coiranons:  CYC,  blank,  CUPB 

SYSAST  Is  the  overall  control  routine  for  the  new  version  system  level 
package.  It  primarily  serves  as  a switching  routine  to  call  other  routines 
as  directed  by  control  variables  M and  I,  which  in  turn  depend  on  user 
responses  to  inquiries.  M primarily  identifies  which  system  is  under  con- 
sideration, while  I identifies  YES-NO  responses  which  affect  program  flow. 
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0001 

SUriROUTINE  SYSAST 

0002 

C0MM0N/CYC/YC(40) 

0003 

COMMON  T,Jf  IP.  IClf  IGf  ICOMf  ICNTRL 

0004 

C0MM0N/CUrp/tJF  P<40)  . IBND 

0005 

PO  1 1=1.40 

0006 

1 IJPB(I)=0. 

0007 

CALL  SYSINT 

0008  D 

PAUSE  'TYPE  RE  OR  RSU  TO  CONTINUE' 

0009 

100  CALL  SLST(M) 

0010 

GO  TO  (10.20.30.40.50.60.70.80.90)  M 

0011 

10  CALL  ABl 

0012 

GO  TO  no 

0013 

20  CALL  AB2 

0014 

GO  TO  no 

0015 

30  CALL  AB3 

0016 

GO  TO  no 

0017 

40  CALL  PSl 

0018 

GO  TO  no 

0019 

50  CALL  PS2 

0020 

GO  TO  no 

0021 

60  CALL  DPS 

0022 

GO  TO  no 

0023 

70  CALL  QPS 

0024 

GO  TO  no 

0025 

80  CALL  FSl 

0026 

GO  TO  no 

0027 

90  CALL  FS2 

0028 

no  CALL  SYSMSS(l) 

0029 

CALL  R3YN0(I) 

0030 

IF(I.EQ.ll)  GO  TO  120 

0032 

GO  TO  100 

0033 

120  IF(M.EQ.7)  GO  TO  155 

0035 

IF(M.GT.7)  GO  TO  150 

0037 

IF(M.GE.4)  GO  TO  140 

0039 

CALL  PRAB(M) 

0040 

GO  TO  160 

0041 

140  CALL  PRPSD(M) 

0042 

GO  TO  160 

0043 

150  CALL  PRFS(M) 

0044 

GO  TO  160 

0045 

155  CALL  PRQ<M) 

0046 

160  CALL  CNOT 

0047 

IF(  (M.E0.3)  .OR.  (M.E(3.5)  .OR.  (M.ECJ.9)  ) GO  TO  170 

0049 

CALL  PSPSNR 

0050 

GO  TO  180 

0051 

170  CALL  PSPECR 

0052 

180  CALL  SYSMSS<2) 

0053 

CALL  R3YN0(I) 

0054 

IF(I.ECJ.IO)  GO  TO  120 

0056 

CALL  SYSMSSO) 

0057 

CALL  R3YN0(I) 

0058 

IF(I.EO.IO)  GO  TO  100 

0060 

ICOM-1 

0061 

ICNTRL«1 
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00A2 

0063 


RETURN 

END 
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A7.  Subroutine  SYSINT 


Calls:  R3YNO 

Called  by:  SYSAST 

Commons : None 

SYSINT  contains  the  text  introduction  to  the  new  version  system  level 
package.  It  provides  the  option  of  skipping  the  introduction  if  desired 
by  using  R3YN0  in  conjunction  with  the  appropriate  inquiry. 


A-120 


•LST21 
FORTRAN  IV 


V01C-03A 


FRI  30-JUL-76  03109:55 


PAGE  001 


0001 

0002 

0003 

000^ 

0005 

0007 

0008 


0009 

0010 


SUBROUTINE  SYSINT 
URITE(<&>11  > 

11  FORMATC'  BO  YOU  WANT  TO  READ  INTRODUCTION?  (USE  LP)'> 

CALL  R3YN0(I) 

IF(I.EQ.ll)  GO  TO  20 
URITE(6» 10) 

10  FORMAT('  THIS  IS  AN  ANALYSIS  PACKAGE  FOR  NINE'»/»'  TYPES 

« ' OF  COMMUNICATIONS  SYSTEMS.  YOU  UILL'»/.'  BE  SHOWN  A '» 

* ' LIST  OF  THE  SYSTEMS  AVAILABLE  AND'f/»'  YOU  SHOULD  USE  '» 

» ' THE  LIGHT  PEN  TO  SELECT  THE  SYSTEM' f/f'  OF  INTEREST f // f 

« ' WHEN  DATA  IS  SOLICITEDf  PROVIDE  NUMBERS  IN  REAL' f/f 

« ' FORMAT  (INCLUDE  DECIMAL  POINT  OR  USE  EXPONENTIAL  'f 

* ' NOTATION)  USING' f/f'  THE  KEYBOARD .' f // f ' THIS  'f 

» ' PACKAGE  CALCULATES  AND  PLOTS  THE  BIT  ERROR' f/f'  RATE  'f 

« ' VS.  SIGNAL  OR  ENERGY  TO  NOISE  RATIO  FOR  THE  SYSTEM' f/f 

* ' OF  INTEREST.') 

20  RETURN 

END 
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A8^._  Subroutine  SYSMSS 
Calls:  None 

Called  by:  SYSAST 

Commons : None 

SYSMSS  contains  the  text  data  for  all  inquiries  in  SYSAST. 
control  variable  I directs  program  flow  to  the  desired  sequence, 
subroutine  reduces  the  memory  requirements  for  SYSAST  in  overlay 
1 by  relocating  text  data  in  overlay  region  2. 


The 

This 

region 
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SUBROUTINE  SYSMSS(I) 

IF(I.E0.3)  GO  TO  30 
IF<I.EQ.2)  GO  TO  20 
URITE(6»11) 

RETURN 

20  URITE(6.21) 

RETURN 

30  WRITE(6f31) 

RETURN 

11  FORMATC'  YOU  MAY  AT  THIS  TIME  SELECT  ANOTHER  SYSTEM. '» 

+/'  no  YOU  WANT  TO  DO  SO?  (USE  LIGHT  PEN)') 

21  FORMAT('  DO  YOU  WANT  TO  ALTER  THE  SYSTEM  PARAMETERS?') 

31  FORMAT!'  DO  YOU  WANT  TO  LOOK  AT  ANOTHER  SYSTEM?') 

END 
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49.  Subroutine  SYSTEM 


Calls:  HINT,  SYlMS,  DATIT,  FETCH,  ELFIND,  SY30,  SY40,  SY50,  SY60, 

SY70,  SNRF 

Called  by:  MAIN 

Commons:  HDATA,  DF1012,  blank,  CBER,  CWORD,  CSYSTM 

SYSTEM  la  the  overall  control  routine  for  the  old  version  system  level 
analysis  package.  It  operates  in  a fashion  similar  to  SBCTRL,  utilizing 
the  command  decoding  processors  and  a computed  GO  TO  statement  to  direct 
program  flow.  The  variable  I Identifies  the  system  under  consideration. 

An  entry  point  is  set  at  statement  label  554  for  re-entry  after  indirectly 
calling  GTPLT,  since  both  routines  are  assigned  to  the  same  overlay  region. 
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0001 

SUPROUTINE  SYSTEM(I) 

0002 

C0MM0N/HHATA/HH(4) ,HX»HZ<9) 

0003 

C0MM0N/riP1012/IRECrNREC 

0004 

COMMON  T»  J»It<LKr  IQf  IGRAFX»ICOM»ICNTRL 

0005 

C0MM0N/C8ER/BER ( 40 ) 

0006 

COMMON/CUORD/UORD< 10) 

0007 

COMMON/CSYSTM/SPATAdO)  .KTYP 

0008 

PAFA  HT/IHT/ 

0009 

PIMENSION  A(10) 

0010 

IF< ICNTRL.EQ.2)  GO  TO  554 

0012 

IGTST-0 

0013 

18 

CALL  HINT( I » JTYPf IGTST»K) 

0014 

CALL  SY1MS(HX.HH(4)»1) 

0015 

554 

ICOM-7 

0016 

1 

CALL  PATIT 

0017 

URITE(6r 1001 ) 

0018 

1001 

FORMAK'  /') 

0019 

CALL  FETCH(LtNBAD) 

0020 

IF<NPA0.E0.0)  GO  TO  1 

0022 

CALL  ELFINP(UORPfLTYP) 

0023 

GO  TO  (lOflOdOf  lOflOrlOflOf  10>10rl0> 
4 10f60rl0»70Fl0>10rl0f lOrlOflOr 
4 lOf lOf lS>16>17f 12>13f 14rl0rl0f 
4 lOtlOf lOrlOflOflOf 10r20r30t40f 
4 50.60f lOf 80,90»95) fLTYP 

0024 

10 

CALL  SY1MS(HX»HH(4) »2) 

0025 

GO  TO  1 

0026 

12 

1-4 

0027 

GO  TO  18 

0028 

13 

1-5 

0029 

GO  TO  18 

0030 

14 

1-6 

0031 

GO  TO  18 

0032 

15 

I-l 

0033 

GO  TO  18 

0034 

16 

1-2 

0035 

GO  TO  18 

0036 

17 

1-3 

0037 

GO  TO  18 

0038 

D 20 

REUIND  10 

0039 

0 

REAP<10'1)(A( J),J-l,10)fK 

0040 

D 

GO  TO  1 

0041 

30 

IGTST-1 

0042 

CALL  HlNTdt  JTYPflOTST.K) 

0043 

CALL  SY30(IrK>A) 

0044 

IGTST-0 

0045 

GO  TO  555 

0046 

40 

CALL  SY40<A»K) 

0047 

GO  TO  555 

0048 

50 

CALL  SY50(A»K) 

0049 

555 

IF(I.NE.6>  00  TO  1 

0051 

GO  TO  200 

0052 

60 

CALL  SY60(JTYP»I»A»K) 

0053 

GO  TO  1 
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0054 

70 

CALL  SY70(IGTST»IfK.A) 

0055 

IF< ICOM.EQ. 12)  RETURN 

0057 

GO  TO  1 

0058 

80 

RETURN 

0059 

n 

90 

REUIND  10 

0060 

n 

URITE<10'1)  (A(J)>J>lrlO)rK 

0061 

D 

GO  TO  1 

0062 

95 

CALL  SY1MS<HX»HH(4) »3) 

0063 

GO  TO  1 

0064 

o 

o 

XXX=SQRT(2+SNRF(A.K)/2> 

0065 

CALL  SYlMS(XXXfHH<4) .4) 

0066 

IF<LTYP.E0.40)  A(10)=XXX 

0068 

GO  TO  1 

»««»« 

E 

J 


A-126 


> / 1 


50.  Subroutine  SYlMS 


Calls:  None 

Called  by:  SYSTEM 

Commons:  None 

SYlMS  handles  the  text  messages  for  SYSTEM  in  a fashion  similar  to 
SYSMSS.  This  reduces  memory  requirements  for  overlay  region  1.  A and  B 
contain  Hollerith  variable  text  which  is  generated  by  HINT  before  SYlMS 
is  called. 
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*LST16 

FORTRAN  IW  V01C-03A  FRI  30-JUL-76  02:54T29  PAGE  001 

0001  SUBROUTINE  SY 1 MS< A r B f ISM ) 

0002  GO  TO  ( 10»20.30f40>  ISM 

0003  10  WRITE (6» 1000)  A»B 

0004  1000  F0RMAr(//10Xf ' SYSTEM  LEVEL  ANALYSIS  FOR  BINARY  '»A2*'SK'r 

+/'  assumptions:  l.  ' fA4. -coherent  DETECTION' f/13Xf 
+ ' 2.  AtililTIVE  WHITE  GAUSSIAN  NOISE') 


0005 

RETURN 

OOOA 

20 

URITE<6.1002) 

0007 

1002 

format:'  invalid...  use  system  level 

ANALYSIS  COMMANDS') 

0008 

RETURN 

0009 

30 

URITE(6>96) 

0010 

96 

format: ' UNDEFINED  STATEMENT') 

0011 

RETURN 

0012 

40 

URITE:6.201)  a 

0013 

201 

format:'  current  estimate  of  optimum 

THRESHOLD  IS  '»F8.2) 

0014 

RETURN 

0015 

END 
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51.  Subroutine  SY30 


Calls:  None 

Called  by:  SYSTEM 

Commons:  HDATA 

SY30  performs  the  parameter  listing  operation  in  which  the 
system  parameters  are  listed  on  the  terminal  in  response  to  the 
command.  Hollerith  variable  data  is  inserted  in  the  text  output 
priate  places. 
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FACE  001 


0001 

0002 

0003 

0004 

0005 


0006 

0008 

0009 

0010 
0011 
0012 
0013 


SUfiROUTINE  SY30(I»K»A) 

C0MHIJN/HriATA/MH(4)  fHX*HZ<9) 

L'lMlNSION  A(IO) 

31  URirE(6f32)  HXf (A< J) . J=1 .7) .HH< 1 ) fHM(2) .A<8> *HH(3) » 

+ (H7(M) rM=l .5) .A<9) .HZ(6) 

32  FORNAT(//'  SYSTEM  IS ' 1 9X . A2* ' SK ' » 

+/'  1.  MARK  FR08A8ILITY' »5X.F10.2» 

+/'  2.  MESSAGE  RATE ' » 9X r E 10 . 4 . ' /SEC'r 
+/'  3.  XMTR  FOWER ' f 1 IXfElO. 4, ' WATTS'r 
+/'  4.  XMTR  ANT.  GAIN ' f 7X , F 10 . 2 » ' DB'f 

i/'  5.  FREQUENCY' , 12XfE10. 4, ' HZ'f/'  6.  RCVR-XMTR  SEPARATION  'r 
FE10.4f'  METERS' f/'  7.  RCOR  ANT.  GAIN ' f 7X f F 10 , 2 r ' DB'f 
+/'  8.  NOISE  ' fA4fA2f9XfF10.2f 1XfA4f/'  9.  'f4A4fA2f 
+3XfF10.2fA3> 

IF(I.NE.6)  GO  TO  1 
URITE(6f33)  A(10) 

33  FORMAT('  10.  NORMALIZED  DECISION  THRESHOLD  = 'fF8.2) 

35  URITE(6f34) 

34  FORMAT(/) 

1 RETURN 

END 


A-130 


52.  Subroutine  SY40 


Calls:  None 

Called  by:  SYSTEM 

Commons : HDATA 

SY40  is  the  parameter  entry  processor  in  which  new  system  parameters 
are  input  via  a user-computer  dialogue.  It  is  called  in  response  to  the 
'NEW'  command.  The  data  array  A contains  the  system  parameters. 
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PAGE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0010 
001 1 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0027 

0028 

0029 

0030 

0031 

0032 

0033 


SU8R0UTINE  SY40(A»K) 
niMFNSION  A(10) 

C0MNC)N/HIiATA/HH<4)  .HXfHZ(9) 

URITE(6>41  ) 

41  FQRMAK//'  TRANSMI TTER 1 ' ► / ' UHAT  IS  PROBABILITY  OF  A MARK?') 

42  READ(5f400)  A(l) 

400  F0RMAT<F10.3) 

IF(O..LE.  A(1).AND.  ACD.LE.l.)  GO  TO  110 
URITE(6.1100) 

1100  FORMAT ('  ENTRY  ERROR ...  VALUE  SHOULD  BE  BETWEEN  0 AND  1.') 

GO  TO  42 
no  URITE<6f120) 

120  FORMATC'  INPUT  MESSAGE  RATE/SECf  XMTR  POUERf'f 
+'  XMTR  ANT.  GAIN  <DB)»  FREQ.  (HZ)') 

REAIKSf 410) <A( J) r J=2>5) 

410  F0RMAT(4E12.3) 

URITE(6.130) 

130  FORMAT (/'  CHANNEL! '»/'  INPUT  XMTR-RCVR  SEPARATION'. 

+'  DISTANCE  (METERS)') 

READ(5.420)  A(6) 

420  FORMAT (E12.3) 

WRITE (6. 140) 

140  FORMAT(/'  RFXEIVER ' . / ' WILL  NOISE  FIGURE  BE  IN  (1)  DB»  OR'. 

+'  (-1)  KELVIN  DEGREES?') 

43  READ(5.430)K 
430  F0RMAT(I4) 

IF(IABS(K).NE.l)  GO  TO  43 
45  URITE(6.150)  ( HZ ( M ) . M=1 . 5 ) 

150  FORMAT('  INPUT  RCVR  ANT.  GAIN  (DB)»  NOISE  FIGURE.  AND  '.4A4.A2) 
A( 10)«0. 

READ(S.440)  A ( 7 ) . A ( 8 ) . A( 9 ) 

440  F0RMAT(3F12.3) 

RETURN 

END 
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53.  Subroutine  SY50 


Calls:  None 

Called  by:  SYSTEM 

Commons:  CWORD 

SY50  is  called  in  response  to  the  'CHANGE'  command.  It  looks  at  the 
data  in  the  WORD  array  (placed  there  by  FETCH)  to  find  out  which  entry  in 
data  array  A is  to  be  changed  and  the  new  value  to  be  stored  in  that  entry. 
It  also  tests  to  see  if  the  user  has  specified  the  toggling  operation  for 
array  element  A(8)  and  sets  control  variable  K accordingly.  A(8)  is  the 
noise  specification  and  can  be  given  either  as  a temperature  or  a noise 
f igure . 
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0001 

0002 

0003 

0004 

0005 

0006 
0007 

0009 

0010 


SUHROUTINE  SY50<AfK) 

DATA  HT/IHT/ 

DIMENSION  A<10) 

COMMON/CUORD/UORIK  10) 

KF AK=U0RD(2) 

A(KPAR)»--U0RD(3) 

tF(U0RD<4)  .E0.HT.AND.KPAR.EQ.8)  K=«-K 

RETURN 

END 
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54j  Subrout Ine  SY60 

Calls:  ENRF,  SNRF,  PE,  DRATEF 

Called  by:  SYSTEM 

Commons:  HDATA 

SY60  is  the  analysis  routine  which  computes  and  outputs  the  data  rate, 
signal  or  energy-to-nolse  ratio,  and  probability  of  error  for  the  set  of 
parameters  In  data  array  A,  using  a number  of  calls  to  functions  and  sub- 
routines In  which  the  mathematical  operations  take  place.  The  energy  or 
slgnal-to-noise  ratio  Is  converted  to  dB  before  being  output  to  the  terminal. 
SY60  is  called  In  response  to  the  'PROCES'  command. 
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0001 

0002 

0003 

0004 

0005 

0007 

0008 

0009 

0010 
001 1 
0012 


0013 

0014 


SIJHROIJTINE  SYAO(  JTYPf  I.A»K) 

DIMENSION  A(IO) 

C0MMnN/HriATA/HH<4)  fHX>HZ(9) 

60  FNR=ENRF(A»K) 

IF< JTYP.EO. 1 ) ENR=SNRF(A»K) 
pn=SORT ( 2 . T ( ENK/2 . ) ) 

CALL  PE<PERROR.I»K»A»ENR) 

FNR=10.*ALOG10(ENR) 

PRATE=DRATEF(A) 

WRITE<6f 61 ) DRATE.HZ<8) rHZ(9) fENRrPERROR 

61  FORMAK//'  DATA  RATE ' 1 13X f 2H=  tElO.4.'  BITS/SEC'» 
+/lX.A4.A2f'  TO  NOISE  RATIO  = '.F10.2#'  DB'f 

+/'  PROBABILITY  OF  ERROR  = '»E10.4> 

RETURN 

END 
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55.  Subroutine  SY70 


Calls:  PE70 

Called  by:  SYSTEM 

Commons:  blank,  HDATA,  CBER 

SY70  is  called  in  response  to  the  'BERPLT'  command.  It  performs  a 
parametric  analysis  of  bit  error  rate  vs.  slgnal-to-noise  ratio  over  a 
range  from  -10  to  30  dB.  Only  the  mark  probability  and  decision  threshold 
data  from  data  array  A is  used.  The  output  is  stored  in  array  BER  for 
conversion  and  plotting  by  GTPI.T,  or,  if  control  variable  IGRAFX  indicates 
that  no  CRT  display  is  being  used,  it  lists  the  array  contents  on  the 
terminal . 


A-137 


FORTRAN  IV  V01C-03A  FRI  30-JUL-76  03:30:50  PAGE  001 

0001  SUPRDtJTINF  SY70 < IGTST  » I f K r A > 

0002  DIMENSION  A<10) 

0003  COMMON  T t .N  I BLK t IQCNTR . IGRAFX » ICOM f ICNTRL 

0004  C0MM0N/HDATA/HH(4) rHX.HZ<9) 

0005  C0MM0N/CDER/BER(40> 

OOOA  70  DO  71  L=l»40 

0007  71  DER(L)=0.0 

0008  DO  72  L=lf40 

0009  SNR=10.**(FL0AT(L-1 1 )/10. ) 

0010  CALL  PE70<PERR0R. I fK»AfSNR) 

0011  LCNT=L 

0012  IF(PERROR.LT. 1 .E-6)  GO  TO  74 

0014  72  DFR(L )=PERROR 

0015  74  IF< IGRAFX .NE. 1 ) GO  TO  78 

0017  IC0M=12 

0018  ICNTRL=LCNT 

0019  RETURN 

0020  78  URITE(A.73)  HZ<7) 

0021  73  FORMATdlXfAl. 'NR  ( DB  ) ' . lOX » 'PROB . OF  ERROR'*/) 

0022  DO  75  L=l*40 

0023  IF<BER(L).LT.l.E-6)  GO  TO  76 

0025  SNRDB=FL0AT(L-11  ) 

0026  75  URITE<6f77)  SNRDBrBER(L) 

0027  77  FORMAT( 10X.F10.2.15X.E10.4) 

0028  76  RETURN 

0029  END 
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56.  Subroutine  TIMPLT 


Calls:  None 

Called  by:  SBCTRL 

Commons:  blank,  CRESLT 

TIMPLT  generates  a teletype  plot  of  the  data  in  array  RESULT.  The 
routine  provides  the  capability  of  plotting  selected  portions  of  the  array 
by  soliciting  from  the  user  the  starting  point  in  the  data  array,  the  end- 
ing point,  and  the  number  of  data  array  points  to  be  skipped  between  plot- 
ted points.  The  routine  automatically  scales  the  plot  and  gives  the  mini- 
mum and  maximum  values  plotted.  The  axis  labeling  is  not  automatically 
scaled:  it  is  fixed  to  range  from  0 to  1.0.  Interpolation  must  be  used 
to  determine  actual  values  of  points  plotted. 
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0001 

SUBROUTINE  TIMPLT 

0002 

COMMON  T . J f I Bl.K  » I0CN7R  f IGRAFX  f ICOM » ICNTR 

0003 

COMMON/CRESLT/RESULT( 100) 

0004 

INTEGER42  AST.Bl.NK 

0005 

DATA  AST/lH»/f BLNK/IH  / 

0006 

DIMENSION  IA<50> 

0007 

URITE(6f 1000) 

0008 

ICOM-7 

0009 

READ<5»555)  NST r NSP r N JUMP 

0010 

555 

F0RMAT(3I10) 

D 

WRITE <6. 2000)  (RESULT! I ) f I =NST » NSP f NJUMP) 

02000 

FORMAT! 10XfE12. 3) 

0011 

PMAX=RESULT!NST) 

0012 

BMIN=BMAX 

0013 

DO  1 I=NSTfNSPfNJUMP 

0014 

B*RESULT!I) 

0015 

IF!B.LT.BMIN)  BMIN-B 

0017 

1 

IF!B.GT.BMAX)  BMAX-B 

0019 

IF! (BMAX-BMIN) .LT. lE-30)  GO  TO  999 

0021 

DO  33  1-1 f50 

0022 

33 

lA! I )=BLNK 

0023 

100 

URITE!6f4) 

0024 

WRITE!6f1001 )T 

0025 

URITE!6f3)  BMINfBMAX 

0026 

URITE!6f4) 

0027 

WRITE !6f6) 

0028 

WRITE!6f7) 

0029 

DO  10  1=NSTfNSPfNJUMP 

0030 

B*RESULT!I) 

0031 

B=!B-BMIN)/! BMAX-BMIN) 

0032 

M=IFIX!B*50.+.5) 

n 

WRITE!6f9090)M 

D9090 

FORMAT!'  M-'fI4) 

0033 

IF!M.EQ.0)  GOTO  34 

0035 

IA!M)>iAST 

0036 

WRITE!6f35)IfIA 

0037 

IA!M)=BLNK 

0038 

GO  TO  36 

0039 

34 

WRITE!6f37)I 

0040 

36 

CONTINUE 

0041 

10 

CONTINUE 

0042 

WRITE!6f11) 

0043 

GO  TO  900 

0044 

999 

WRITE!6f9) 

0045 

900 

return 

0046 

3 

FORMAT! 12Xf 'amplitude:  MIN  'fE10.3f'f  MAX  'fE10.3f'  VOLTS') 

0047 

4 

FORMAT !5Xf1H+) 

0048 

6 

F0RMAT!8Xf'  0 .1  .2  .3  .4  .5  .6  .7  .8  .9 

0049 

7 

F0RMAT!9Xf1HIf10!5H I)) 

0050 

9 

FORMAT! IXf'  ERROR  IN  TIMPLT') 

0051 

11 

F0RMAT!6Xf1HN) 

0052 

35 

FORMAT !2Xf 15 f3H  I»50A1) 

0053 

37 

F0RMAT!2XfI5f3H  *) 

0054 

1000 

FORMAT!'  ENTER  STARTfSTOPf  AND  JUMP  INDICES') 
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0055  1001  FORHAT<//'  TIHESTEP- 

0056  END 


1 


' >E10.4) 
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57 . Funct Icn  YNT 
Calls:  None 

Called  by;  LPF 
Commons:  None 

YNT  evaluates  the  expression  for  the  2nd  order  Butterworth  low-pass 
filter  given  in  the  description  accompanying  the  listing  for  LPF,  using 
the  values  of  the  arguments  in  the  argument  list. 


A-U2 


T 


FORTRAN  IV  V01C-03A  FRI  30-JUL-76  02:54158  PAGE  001 

0001 
0002 

0003 

0004 


FUNCTION  YNTCCl rC2rC3»YNl r YN2»XN1»XN2> 

YNT=2.*Cl*C2*YNl-Cl»Cl*YN2+( 1-C1*(C2+C3) ) *XN1 +C1* ( Cl -C2+C3 ) *XN2 

RETURN 

END 
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I 

I 


j. 
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APPENDIX  B 


PROGRAMS  FOR  GENERATING  PERMANENT 
DISPLAY  FILES  USED  BY  MIDACS 
DEMONSTRATION  PRCXiRAM 

Each  of  these  programs  was  used  to  generate  a permanent,  disc-resident 
display  file  for  use  by  the  MIDACS  software.  These  display  files  all  have 
the  ,DPY  extension  name  and  constitute  the  block  diagrams,  light  pen  sen- 
sitive lists,  and  coordinate  grids  displayed  on  the  CRT.  The  graphics 
support  subroutines  are  part  of  the  PDP-11  FORTRAN  GT  Graphics  Library 
supplied  with  the  RT-11  operating  system. 
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ufp  2r< -AiiB-z'A 


F'AGE  OC 


C A'JKnt 

c 


0001 

[1  tMI 

NO  TON 

nuir(  1000) 

0002 

CAI  L 

JN[  r 

( rraiFf  looo) 

0003 

CAI.L 

AINL 

cjjO.  f 700.  ,0f-ri) 

0004 

c 

CAI  1. 

tf:x  T 

('LUnCK  DlALikAM 

c 

E<n;iN  DLOCK  1 

c 

ooo:-, 

CAM. 

Al'Nr 

( I'JO.  ,G50.  ,0f-5 
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CALl- 

uccr 

( ISO . . 0 • ) 

000  7 

HAI  1 

01  Cl 

(0. » 100. > 

0000 

f'AI  1 

01  c r 

(-100. ,0. ) 

000'? 

c 

CALL 

OCCT 

0 

1 

o 

o 

c 

naOTN  BLOCK  2 

c 

00  U) 

CALI. 

APNL 

(300. .550. .0.-5 

OOt  1 

CAI  1. 

OECT 

(150. .0. > 

0012 

CAI  1. 

oi:cT 

(0. . 100. ) 

001  3 

CAI.I. 

ore  r 

(-150. .0. ) 

00  M 

CAI  1 

oi-:cT 

(0. .-too. ) 

c 

C Di;iii'N'  ni-OCK  3 


c 


0015 

CALI. 

APNT 

(550. .550. .0.-5) 

OOtif) 

CALI. 

OEC  1 

( 150. .0. ) 

0017 

CAU. 

OEC  T 

(0. .100. ) 

0018 

CALL 

OECT 

(—150. .0. ) 

0019 

p 

CALL 

OECT 

(0. --100. ) 

c 

prCiTN  BLOCK  4 

c 

0020 

CALL 

APNT 

(750. .550. .0.-5) 

0021 

CALL 

OECT 

( 150. .0. ) 

0022 

CALL 

OECT 

(0. . 100. ) 

0023 

CALL 

OECT 

(-150. .0. ) 

0024 

p 

CAU 

OECT 

(0 . . -100.  ) 

L. 

c 

CONNECT 

LINES 

c 

0025 

CAI  L 

APNT 

(50. .600. .0.-5) 

0026 

CAI  1 

OLCr 

( 100. .0. ) 

0027 

CALL 

OLC  r 

( 1 50 . . 0 . .0.-5) 

0028 

CALL 

OLC 

(50. .0. ) 

0029 

CAI  L 

OLC  r 

( t'.jO.  .0.  .0.-5) 

0030 

CAI  1. 

OECT 

( 50 . . 0 . ) 

0031 

LAI  1 

01  (,;  r 

( 150. .0.  .0.-5) 

0032 

CALI 

OECT 

(50. .0. ) 

0033 

CAI  L 

OECT 

( 150. .0. .0.-5) 

003  4 

CALL 

opcr 

( 100. .0. ) 

c; 

r LAFTI  FUJOS 

c * 
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F DKflVr^N 


vou;--o.<A 


UEIi  ;'r<-AU(.3-7A  l.CIAMl 


F AIJt;  002 


oo.Fr') 
00  36 
OOJ/ 
00.3H 
00.3V 
0040 
004] 
0042 
004,3 

0044 

0045 

0046 
0042 
004ft 
004  9 

0050 

0051 

0052 

0053 

0054 

0055 

0056 


0057 

0058 
005V 
0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 


IV 


CAI  1 

Al  NT 

(160. r625. .0f-5> 

CAI  1. 

Tr  X I 

('DANUPASS  ') 

CAM. 

APNT 

< 160. .575. .Or -5) 

CAI  1 

TLX  I 

('FILTER  ') 

CAI  1. 

APNT 

(360. .625. .0.-5) 

CAl.L 

n X r 

('HALEUAVE  ') 

CALL 

APNT 

(.360.  .575.  .0.-5) 

CAM. 

TEXT 

('DETECTOR  ') 

CALL 

APNT 

( 560 . . 625 ..0.-5) 

CALI. 

TEXT 

('LOUPASS  ') 

CAI  L 

AINT 

<560. .575. .0. -5) 

CALL 

II. X r 

('FILTER  ') 

CAI  1. 

APN  r 

<760. .625. .0.-5) 

CAM 

TLX  r 

('SAMPLE  ') 

CAI  1. 

APNT 

(760. .600. .0.-5) 

CAI  L 

TEXT 

('AND  ') 

CAM 

APNT 

( 760. .575. .0.-5) 

CALL 

TEXT 

('DECISION  ') 

CALL 

APN  r 

(9)0. .605. .0.-5) 

CALL 

TL  XT 

('OUTPUT  ') 

CAI  L 

APN  r 

(50. .605. .0.-5) 

CAM. 

TEXT 

('INPUT  ') 

LIST  ASSUMPTIONS 


TAIL  APNT  <50. f 450. .Of-5) 

CAi  1.  TFXT  ( assumptions:  ') 

CALL  Tt:xr  (l.'l.  KTNARY  ASK  '.!) 

CAt  I TF'XI  ('2.  NON-COlIPKE  NI  UPTECTTON  '»!) 

CAI  L TEXT  ('S.  AnurriVF  WHlfP  GAUSS r AN  NOISE  'fl) 

CALL  TEXT  ('4.  MECISION  THRESHOLD  NORMAL [7ED  WITH  RESPECT 
1 'TO  RMS  NOISE  l.EVEL  '.1) 

CALL  TEXT  ('5.  SIGNAL  TO  NOISE  RATIO  MEASURED  AT  OUTPUT  OF  '» 
1 'BANDPASS  FILTER  '.1) 

CAM.  TEXT  ('6.  NO  INTERSYMBOL  INTERFERENCE  ') 

CALL  SAVE  < ' ASKPl  ' ) 

CALL  [NTT  (IBUFflOOO) 

CALL  RSTR  ('ASKBl') 

END 
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C 

ASKB2 

C 

0001 

PIMENSION 

IBUF( 1000) 

0002 

CALL 

INIT 

( IBUFfIOOO) 

0003 

CALL 

APNT 

<50. .700. .0.-5) 

0004 

C 

CALL 

TEXT 

('BLOCK  DIAGRAM 

C 

BEGIN  BLOCK  1 

c 

0005 

CALL 

APNT 

<150. .550. .0.-5) 

0006 

CALL 

VECT 

< 150. .0. ) 

0007 

CALL 

OECT 

<0. . 100. ) 

OOOG 

CAI  1 

OECr 

<-150. .0. ) 

0009 

c 

CALL 

VECT 

<0. .-100. ) 

c 

BEGIN  BLOCK  2 

0010 

C' 

CALL 

APNT 

<350. .550. .0.-5) 

001  1 

CALL 

VECT 

< 150. .0.  ) 

0012 

CALL 

VECT 

<0. . 100. ) 

0013 

CALL 

VECT 

<-150. .0. ) 

001  4 

c 

CALL 

VECT 

O 

1 

o 

o 

c 

BEGIN  BLOCK  3 

c 

00  ir. 

CALL 

APNT 

(550. .550. .0.-5) 

0016 

CALL 

VECT 

< 150. .0. ) 

001  7 

CALL 

VECT 

<0. . 100. ) 

0018 

CALL 

VECT 

(-150. .0. ) 

0019 

c 

CALL 

VECT 

<0. .-100. > 

L 

BEGIN  BLOCK  4 

C 

0020 

CALL 

APNT 

<750. .550. .0.-5) 

0021 

CALL 

VECT 

< 150. .0. ) 

0022 

CALL 

VECT 

<0. .100. ) 

002.3 

CALL 

VECT 

( -150. .0. ) 

0024 

E 

CALL 

VECT 

<0. .-100. ) 

r 

r 

CONNECT 

LINES 

0025 

CALL 

APNT 

<50. .600. .0.-5) 

0026 

CALL 

VEcr 

< 100. .0. ) 

0027 

CALL 

VECT 

to 

1 

o 

o 

o 

0028 

CALL 

VECT 

< 50 . . 0 . ) 

0029 

CALL 

VLCT 

< 150. .0. .0.-5) 

00.30 

CALL 

VECT 

(50. .0.  ) 

00.5 1 

CAI  L 

VECT 

o 

o 

o 

00.3  2 

CALL 

VECT 

<50. .0. ) 

00.5.5 

CALL 

VE  CT 

( 150. .0. .0.-5) 

0''  5 4 

CAI  L 

Vf  CT 

< 100. .0. ) 

LAPEl  ULOCKS 
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VOlC'i 

03A  WED  04-AUG- 

00J5 

CALL 

APNT 

<160. f625. 

F 0 r ”5  ) 

0036 

CALL 

TEXT 

( 'DANDF  ASS 

' ) 

003  7 

CALL 

APNT 

( 160. .575. 

O 

1 

0038 

CALL 

TEXT 

( 'F II  TER  ' 

> 

0039 

CALL 

AF  NI 

(360. .625. 

.0.-5) 

0040 

CALL 

It  XT 

( 'PRODUCT 

' ) 

0041 

CALL 

AF-Nl 

(360. .575. 

.0.-5) 

004  2 

CAL  L 

FEX  r 

< 'DETECTOR 

' ) 

0043 

CALL 

APNT 

<560. .625. 

.0.-5) 

0044 

CALL 

TEXT 

( 'LOWPASS 

' ) 

0045 

CALL 

AFNT 

(560. .575. 

0 

1 

0046 

CAI  L 

TEXT 

('FILTER  ' 

) 

004  / 

CALL 

APNT 

( 760. .625. 

.0.-5) 

<'04f( 

CALL 

TEXT 

('SAMPLE  ' 

) 

0049 

CALL 

APNT 

(760. .600. 

.0.-5) 

0050 

CALL 

TP  X f 

('AND  ') 

0051 

CALI 

APNT 

< 760. .575. 

.0.-5) 

0052 

CAI  L 

TEXT 

< 'DECISION 

' ) 

0053 

CALL 

APNT 

(910. .605. 

.0.-5) 

005  4 

CALL 

TE  XT 

('OUTPUT  ' 

) 

0055 

CALL 

APNT 

(50. .605. . 

0.-5) 

0056 

CALL 

TEXT 

('INPUT  ') 

c 

C LIST  ASSUMPTIONS 
C 
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0057  CALL  APNT  ( 50 . . 450 . » 0 » -5 ) 

0058  CALL  TEXT  ('ASSUMPTIONS:  ') 

0059  CALL  TEXT  (Ir'l.  HINARY  ASK  'rl> 

0060  CALL  TEXT  ('2.  COHERENT  DETECTION  '»!) 

0061  CALL  TEXT  ('3.  ADDITIUE  WHITE  GAUSSIAN  NOISE  '.!) 

0062  CALL  TEXT  ('4.  IiECISIUN  THRESHOLD  NORMALIZED  WITH  RESPECT 

1 'TO  RMS  NOISE  LEVEL  ' f 1) 

0063  CALL  TEXT  ('5.  SIGNAL  TO  NOISE  RATIO  MEASURED  AT  OUTPUT  OE  '» 

1 'BANDPASS  FILTER  '»!) 

0064  CALL  TEXT  ('6.  NO  INTERSYMDOL  INTERFERENCE  ') 

0065  CALL  SAVE  <'ASKB(2T') 

0066  CALL  INir  <Il;UF»1000) 

006^  CALL  KSTR  <'ASKf(2') 

0068  END 
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FACE  001 


C ASKH3 
C 


0001 

DIMENSION 

IBUF( 1000) 

0001’ 

E'ALL 

INIT 

< IPUF  r 1000) 

OOOJ 

CALL 

AfNI 

(50. f 700. .Of-5) 

0004 

r 

CALL 

TEXT 

('BLOCK  DIAGRAM 

L. 

ft 

KEG  IN  BLOCK  1 

ooor. 

Cl 

CALI. 

AFNT 

( 150. .550. .0»-5) 

0006 

CAL  L 

Vf  CT 

( 150. .0. ) 

OOO’’ 

CALL 

VLCT 

(0. .100. ) 

00  Oft 

CALL 

VECT 

(-150. .0. ) 

0009 

CALL 

VECT 

(0. .-100. ) 

Cl 

r: 

PEGIN  BLOCK  2 

c 

0010 

CALL 

AF'NT 

(350. .550. .0.-5) 

001  1 

CALL 

VECT 

( 150. .0.  ) 

001? 

CALL 

VECT 

(0. . 100. ) 

0013 

CAL  L 

VECT 

(-150. .0. ) 

0014 

c 

CALL 

VECT 

(0.  .-100.  ), 

c: 

r 

PEGIN  BLOCK  3 

OOlJi 

L. 

CALL 

AFNT 

(550. .550. .0.-5) 

0016 

CALL 

VECT 

( 150. .0. ) 

O01  7 

CALL 

VECT 

(0. . 100. ) 

0018 

CALL 

VECT 

(-150. .0.  ) 

0019 

c 

CALL 

VECT 

(0. .-100. ) 

i: 

CONNECT 

LINES 

t; 

00?0 

CALL 

AF'NT 

(50. .600. .0.-5) 

00?  1 

CALL 

VECT 

(100. .0. ) 

oo:<? 

CALL 

VECT 

( 1 50 . .0. .0.-5) 

0023 

CALL 

VECT 

(50. .0. ) 

0074 

CALL 

VECT 

( 150. .0. .0.-5) 

0020 

CALL 

VECT 

(50. .0. ) 

0076 

CALL 

VECT 

( 150. .0. .0.-5) 

'.'02  7 

CALL 

VECT 

( 100. .0. ) 

L 

c 

t ABEL  PI 

OCKS 

c 

oor-rt 

CALL 

AFNT 

(160. .625. .0.-5) 

(■0  >9 

CALL 

TEXT 

('F'Rl)DUCT  ') 

0030 

CALL 

AF'NT 

( 160. .575. .0.-5) 

oo.il 

CALL 

tcx  r 

('DETECTOR  ') 

0032 

CALL 

AF'NT 

(36(>.  .625.  .0.-5) 

00 .7  ' 

( ALL 

IE);  1 

(INTEGRATE  ') 

00.14 

CALL 

AF  NT 

< 360, .600. .0.-5) 

0035 

CALL 

IE  XI 

('AND  ') 

0036 

CALL 

AF'NT 

(360. .575. .0.-5) 

003'’ 

CAl  L 

ILXT 

1 ' DllMf  ' ) 
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oo.ui 

CAl  t 

APNT 

(560. .625. .0.-5) 

007.9 

COLL 

TEXT 

('SAMPLE  ') 

0040 

CALL 

APNT 

(560. .600. .0.-5) 

0041 

COLL 

TEXT 

( ' ANli  ' ) 

0042 

CALI. 

APNI 

(560. .575. .0.-5) 

004  3 

COLL 

itxr 

('HLCISION  ') 

0044 

CAL  L 

APNT 

( 710. .605. .0.-5) 

0045 

CALL 

rtXT 

('OUTPUT  ') 

0046 

CAL  1 

APNT 

(50. .605. .0.-5) 

004  7 

CALL 

TEXT 

('INPUT  ') 

L 

r • 

List  ASSUMPTIONS 

00  4y 

V./ 

CALL 

APNT 

(50. .450. .0.-5) 

004  V 

CALL 

TEXT 

( 'ASESUMPTIONS:  ') 

00  yo 

CALL 

TEXT 

( 1 . ' 1 . IiINARY  ASK  ' . 

1 ) 

005  1 

CALL 

TEXT 

( '2.  HETECTION  PY  A 

CORRELATION  RECEIVER  '.1) 

0052 

CALL 

TEXT 

('3.  AHLUTIVE  UHITE 

GAUSSIAN  NOISE  '.1) 

005.7 

CALL 

TEXT 

('4.  HECISION  THRESHULH  NOkMALl/EH  UITH  RESPECT  '. 

1 

'TO  SIGNAL  ENERGY  '.!> 

0054 

CALL 

TEXT 

('5.  ENERtiY  CONTRAST 

RATIO  MEASUREP  AT  OUTPUT  OP  '. 

1 

' INTEGPATE  ANLT  HUMP  '»!) 

0055 

CALL 

TEX  r 

('6.  NO  INTERSYMPOL 

INTERPERENCE  ' ) 

005,'. 

LAI  L 

SAOE 

( 'ASKP3' ) 

005  7 

CALL 

1 NIT 

(I PUP. 1000) 

005f) 

CALL 

ftS  TFv 

( 'ASKP3' ) 

0059 

LNli 
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C FSKM 
L, 


0('()1 

Him  NS  1 ON 

IBUF ( 1000) 

Of'O'J 

t;AL  L 

(N1  T 

( IBUF . 1 000) 

O')03 

CALL 

Al'Nl 

(SO. . 700. f0.-5) 

000  4 

t 

CALL 

TEXT 

('BLOCK  niAGKAM 

c 

HEGIN  HI  OCK  1 

c 

OOOli 

CAl  L 

AINT 

(ISO. »S50. »0r-5) 

0('0A 

CALI 

VEC  r 

( ISO. rO. ) 

('00  ' 

CAl  L 

VLCT 

O 

o 

o 

OOOH 

c:all 

VFCr 

(-ISO. .0. ) 

0009 

CALL 

VECT 

(0. .-100. ) 

\ 

c 

r 

ntClN  FLOCK  3 

00  10 

u 

CALL 

AF'NT 

(350. .550. .0.-5) 

001  1 

CALL 

VECT 

( 150. f 0. ) 

(>';)  3 

CALL 

VLCT 

(0. . 100. ) 

0013 

CALL 

VECI 

(-150. .0. ; 

0014 

c 

CALL 

VECT 

(0. .-100. ) 

c 

FEGIN  FLOCK  3 

001  S, 

C.' 

CALL 

APNT 

(550. .550. .0.-5) 

0016 

CALL 

VECT 

( 150. .0. ) 

0017 

CALL 

VECT 

(0. . 100. ) 

OQ  1 S 

CALL 

VECT 

(-150. .0. ) 

001  9 

c 

CALL 

VECT 

O 

1 

o 

o 

1 

HEGIN  BLOCK  4 

0030 

L. 

CALL 

APNT 

(750. .550. .0.-5) 

0031 

CALL 

VECT 

( 150. .0. ) 

0033 

CALL 

VECT 

(0. .100. ) 

0033 

CAL  L 

VECT 

(-150. .0. ) 

0034 

n 

CALL 

VECT 

(0. .-100. ) 

i: 

CONNECT 

LINES 

003^; 

CAl  L 

APNT 

(50. .600. .0.-5) 

' '0.' 

CAL  L 

VECT 

( 100. .0. ) 

CALL 

VLCT 

( 150. .0. .0.-5) 

• 'o.’H 

t ALL 

VECT 

(50. .0. ) 

('039 

CALL 

VE  C T 

O 

o 

0 

1 

(O'O 

CAl  1 

V[  CT 

( so . . 0 . ) 

1 '.■•31 

c;ai  L 

Vt  C T 

( ISO. .0. .0.-5) 

CO  <3 

( Al  1. 

Vt  C T 

(SO. .0. ) 

'.>0  3 3 

' ALL 

VI  CT 

( ISO. .0. .0.-5) 

)<•  (rt 

CALL 

VI.  C I 

( 100. .0. ) 

t 

' LAHLL  IiLOCKS 
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00 

CALL 

APNT 

( 160. .625. .0.-5) 

003  A 

CALL 

TEXT 

('DANDPASS  ') 

00  3 7 

CALL 

Al'NT 

( 160. .575. .0.-5) 

003R 

CALL 

T£  XT 

('FILTER:  ' ) 

003V 

CALI. 

APNT 

<360. .625. .0.-5) 

0040 

CALL 

n.xf 

('PRODUCT  ') 

0041 

CAI  L 

APNT 

(360. .575. .0.-5) 

0042 

CALL 

TEXT 

('DETECTOR  ') 

0043 

CALL 

APNT 

('560.  .625.  .0.-5) 

004  4 

CAL  L 

nxT 

('LOWPASS  ') 

0040 

CAL  1 

APNT 

(560. .575. .0.-5) 

0('4  A 

CALI. 

iLxr 

( 'F ILTER  ' ) 

00  1 . 

CALL 

APNT 

< ,'60.  .625.  .0.-5) 

0048 

CAL  L 

IE  XT 

('SIGN  ') 

0('4w 

CAL  1 

APNT 

( /60. .575. .0.-5) 

00 

f:Al  L 

If  XT 

('DETECTOR  ') 

OOM 

CAI  L 

APNT 

(VIO. .605. .0.-5) 

O0S2 

CAl  1 

TEXT 

('OUlPUT  ') 

00S3 

CALL 

APNT 

( 50 . . 605 . . 0 . —5 ) 

O0'.4 

f ■ 

CALL 

TEXT 

('INPUT  ') 

1. 

l: 

LJSr  ASSUMPTIONS 

c 

001-3 

lALL 

APNT 

(50. .450. .0.-5) 

00^,6 

CALL 

TEXT 

('ASSUMPTIONS:  ') 

O0‘.7 

CALL 

TEXT 

( 1,  ' 1 . BINARY  PSK  ' .1 ) 

OOIjH 

CAL  L 

TEXT 

('2.  COHERENT  DETECTION  '.1) 

001  V 

CALL 

TEXT 

('3.  ADDITIVE  WHITE  GAUSSIAN  NOISE  '.1) 

0960 

CALL 

TT  XT 

('4.  DECISION  THRESHOLD  NORMALIZED  WITH  RESPECT 

1 

' TU  1 

MAGNITUDE  LIE  SIGNAL  '.!) 

0061 

CALL 

U.XT 

('  ENVELOPE  ',1) 

006;- 

CAI  L 

TEXT 

('5.  SIGNAL  rO  NOISE  RATIO  MEASURED  AT  OUTPUT  OP 

1 

'HANDPASS  FILTER  '.1) 

0067 

CALI 

IP  XT 

('6.  NO  INTERSYMBOL  INTERFERENCE  ') 

0064 

CAI  L 

SAOF. 

< 'PSRPl  ' ) 

0061. 

CAL  L 

TN/  T 

( I BUF  . 1000) 

006  6 

CAL  L 

KETK 

< 'F'SKBl  ' ) 

006"' 

END 
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C PSKH2 
C 


0001 

n I MENS  I ON 

IBUF< 1000) 

0002 

(JAl  L 

INI  r 

< IBOE  » 1000) 

0003 

CALL 

Al'N  r 

<50. .700. .0.-5) 

0004 

r* 

CALL 

TEXT 

('BLOCK  DIAGRAM 

L 

c 

r 

BEGIN  BLOCK  1 

0005 

o 

CALL 

APNT 

(150. .550. .0.-5) 

0006 

CALL 

VLCT 

( 150. .0.  ) 

0007 

CALL 

VLCT 

(0. .100. ) 

0000 

CALL 

VLCT 

(-150. .0. ) 

0009 

Q 

CALL 

VLCT 

(0. .-100. ) 

c 

c 

BEGIN  BLOCK  2 

0010 

CALL 

APNT 

(350. .550. .0.-5) 

0011 

CALL 

VEC  r 

< 150. .0. ) 

0012 

CALL 

VECT 

(0. . 100. ) 

0013 

CAI.L 

VECT 

(-150. .0. ) 

0014 

CALL 

VECT 

(0. .-100. ) 

c 

c 

BEGIN  BLOCK  3 

c 

0015 

CALL 

APNT 

<550. .550. .0.-5) 

0016 

CALL 

OECT 

( 150. .0. ) 

001  7 

CALL 

OECT 

(0. . 100. ) 

0018 

CALL 

VECT 

(-150. .0. ) 

0019 

r, 

r; 

c 

CALL 

OECT 

(0. .-100. ) 

BEGIN  BLOCK  4 

0020 

CALL 

APNT 

<750. .550. .0.-5) 

0021 

CALL 

OECT 

<150. .0. ) 

0022 

CALL 

VECT 

(0. . 100. ) 

0023 

CALL 

OECT 

(-150. .0. ) 

0024 

r 

CALL 

OECT 

<0. .-100. ) 

W 

c 

r* 

CONNECT 

L INES 

0025 

L 

CALL 

APNT 

(50. .600. .0.-5) 

0026 

CALL 

OECT 

< 100. .0. ) 

0027 

CALL 

OECT 

( 150. .0. .0.-5) 

0028 

CALL 

OECT 

(50. .0. ) 

0029 

CALL 

OECT 

( 150. .0. .0.-5) 

0030 

CAL  L 

VC  c r 

<50. .0. ) 

0031 

CALL 

OECT 

( 150. .0. .0.-5) 

0032 

C ALL 

OECT 

<^0. .0. ) 

0033 

CALL 

OECT 

( 150. .0. .0.-5) 

0034 

CALL 

OECT 

< 100. .0. ) 

r 

( LAPEL  ULOCKS 
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0035 

CALL 

AF’NT 

< 160. f 625. r0»-5) 

0036 

CALL 

TEXT 

('HANDF'ASS  ') 

0037 

CALL 

AFNT 

( 160. .575. .0.-5) 

0038 

CALL 

TEXT 

('FILTER  ') 

0039 

CALL 

APNl 

<360. .625. .0.-5) 

0040 

CALL 

TEXT 

('PROHUCT  ') 

0041 

CALL 

Al  NT 

(360. .575. .0.-5) 

0042 

CALL 

TEXT 

('HETECTOR  ') 

0043 

CALL 

AF'NT 

(560. .625. .0.-5) 

0044 

CALL 

TEXT 

('INTEGRATE  ') 

0045 

CALL 

AF'NT 

<560. .600. .0.-5) 

0046 

CALL 

TEXT 

('ANIi  ') 

0047 

CALL 

AF'NT 

<560. .575. .0.-5) 

0048 

CALL 

TEXT 

< ' HUMP  ' ) 

0049 

CALI 

AF'NT 

<760. .625. .0.-5) 

0050 

CALL 

TEXT 

('SAMPLE  ') 

OOM 

CALL 

AF'NT 

(760. .600. .0.-5) 

0052 

CALL 

TEXT 

('ANH  ') 

0053 

CALL 

AF'NT 

<760. .575. .0.-5) 

0054 

CALL 

TEXT 

('HECISION  ') 

0055 

CALL 

AF'NT 

<910. .605. .0.-5) 

0056 

CALL 

TEXT 

('OUTPUT  ') 

0057 

CALL 

AF'NT 

(50. .605. .0.-5) 

0058 

P 

CALL 

TEXT 

('INPUT  ') 

c 

LIST  AG! 

SUMPTIONS 

0059 

c 

CALL 

AF'NT 

<50. .450. .0.-5) 

0060 

CALL 

TEXT 

('assumptions:  ') 

0061 

CALL 

TEXT 

< 1 . ' 1 . HINARY  PSK  ' . 1 ) 

0062 

CALL 

TEXT 

('2.  HETECTION  HY  A CORRELATION  RECEIVER  '.!) 

0063 

CALL 

TEXT 

('3.  AHHiriVE  UHITE  GAUSSIAN  NOISE  '.!) 

0064 

CALL 

TEXT 

('4.  HECISION  THRESHOLH  NORMALIZE!!  WITH  RESPECT 

1 

' TO  SIGNAL  ENEFLGY  ' , 1 ) 

0065 

CALL 

TEXT 

('5.  ENERGY  CONTRAST  RATIO  MEASURE!'  AT  OUTPUT  OF 

1 

'INTEGRATE  AND  HUMP  '»!) 

0066 

CALL 

TEXT 

('6.  NO  INTERSYMBOL  INTERFERENCE  ') 

0067 

CALL 

SAVE 

< 'PSNB2' ) 

0068 

CALL 

INIT 

< I HUE. 1000) 

0069 

CALL 

Fv'STR 

( 'PSNB2' ) 

0070 

ENH 
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0001 

DIMINBIUN 

I BLIP  ( 1000) 

0002 

CALI 

INI  T 

< IBUF  f 1000) 

0003 

cm  L 

Ah'NI 

(bO.Of 700.0f0r-5) 

t; 

H GIN 

1 EO.OCK  1 

0004 

CALL 

Al'NT 

< 150.0.550.0.0.-5) 

0005 

CALL 

VECT 

(150.0.0.0) 

0006 

CAL  1. 

VECr 

(0.0.100.0) 

000  7 

CALI 

VECT 

(-150.0.0.0) 

OOOB 

CALL 

VECT 

O 

0 

1 

o 

o 

o 

0009 

PAUSE 

c; 

PECJN 

1 BLOCK  2 

0010 

CALL. 

APNT 

(350. 0.550. 0.0. -5) 

001  1 

CALL. 

VECT 

( 150.0.0.0) 

0012 

c:all 

VECT 

(0.0. 100.0) 

001  3 

CALL 

VECT 

(-150.0.0.0) 

0014 

call 

VECT 

(0.0. -100.0) 

0015 

PAUSE 

c 

I'EGIN 

1 BLOCK  3 

0016 

CAL  L 

APNT 

(550.0.550.0.0.-5) 

0017 

CALL 

VECT 

( 150.0.0.0) 

0018 

CALL 

VECT 

(0.0.100.0) 

0019 

CALL 

VECT 

(-150.0.0.0) 

0020 

CALL 

VECT 

(0.0. -100.0) 

0021 

PAUSE 

c 

m GIN 

1 BLOCK  4 

0022 

CALL 

APNT 

(275.0.425.0.0.-5) 

00  23 

CALL 

VECT 

( 100.0.0.0) 

0024 

CALL 

VECT 

(0.0.100.0) 

0025 

CAL  L 

VEC1 

(-100.0.0.0) 

0026 

CALL 

VECT 

(0.0. -100.0) 

0027 

PAUSE 

c: 

DPAU 

CONNECT  LINES 

0028 

CALL 

APNI 

(50.0.600.0.0.-5) 

0029 

CAL  L 

VEC  r 

(100.0.0.0) 

0030 

CALL 

VEcr 

( 150.0.0.0.0.-5) 

0031 

CALL 

VECT 

(50.0.0.0) 

0032 

CALL 

VECT 

( 150.0.0.0.0.-5) 

0033 

CALL 

VECT 

(50.0.0.0) 

0034 

CALL 

VECr 

(150.0.0.0.0.-5) 

0035 

CAL  L 

veer 

(100.0.0.0) 

003o 

CALL 

APNI 

(325.0.600.0.0.-5) 

00.3  7 

CALL 

VEC  T 

(0.0. -75.0) 

0038 

CALL 

APNT 

(375.0.475.0.0.-5) 

0039 

CALL 

VEC1 

(50.0.0.0) 

0040 

CALL 

VECT 

(0.0.75.0) 

0041 

f AUSE 

c 

LABEL 

BLOCKS 

004'' 

CALI 

APNr 

( 160.0.625.0.0.-5) 

('0  4 3 

CALI 

11  X r 

('BANIiPASS  ') 

004  4 

CALL 

APNI 

( 160,0.575.0.0.-5) 

004  5 

CALL 

TEXT 

( 'F  ILTER  ' ) 

0046 

CAL  L 

Al  NT 

( 360,0.625.0.0.-5) 

004  7 

CALL 

ILX  1 

( 'CUHEKLNT  ' ) 

0040 

CALL 

APNT 

(360,0.575.0.0.-5) 
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00->9 

0050 

0051 

0052 

0053 

0054 

0055 
0054 

005  7 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

006  7 
0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 
00  7 7 
0078 


CALL  TEXT 
CALL  APNT 
CALL  TEXT 
CALL  APNT 
CALL  TEXT 
CALL  AFNT 
CALL  TEXT 
CALL  APNI 
CALL  rLXT 


('HETECTOR  ') 
(560.0. 625. 0»0f-5) 
('SAMPLE  ') 
(560.0.600.0.0.-5) 
('ANIi  ') 

(560,0.575.0.0.-5) 
('HECISION  ') 
(705.0.605.0.0.-5) 
('OUTPUT  ') 


CALL  AT'NT  (50,0.605.0.0.-5) 

CALL  TEXT  ('INPUT  ') 

CALL  APNT  (285,0.475.0.0.-5) 

CALL  TEXT  ('HELAY  ') 

PAUSE 

I 1ST  ASSUMPTIONS 

CALI  APNT  (50.0.400.0.0.-5) 

CALL  TEXT  ( ' ..SSUMPT  I ONS  : ') 

CALL  TEXT  (l.'l.  8INARY  I'PSK  '.1) 

CAI L TEXT  ('2,  HI FPERENT 1 AL  COHERENT  HETECTION  '.1) 

CALL  TEXT  ('3.  AUDITIVE  WHITE  GAUSSIAN  NOISE  '.1) 

CALL  TEXT  ('4.  NO  INTERSYMHOL  INTEf.FERENCE  '.1) 

CALL  TEXT  ('5.  DECISION  THRESHOL D-0 . 0 '.1) 

CALL  TEXT  ('6.  MARK  PRaBABIL I T Y=0 . 5 '.1) 

CALL  T[  XT  ('7.  SIGNAL  TO  NOISE  RATIO  MEASURED  AT  OUTPUT  OF 
» 'DANDPASS  FILTER  ') 


PAUSE 

CALL  SAVE  ( 'DPSKDl .DPY' ) 


PAUSE 

CALI  [NIT ( IDUF. 1000) 
CALL  KSIK!  'DPSNbl  ' ) 
STOP 
END 
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0001 

niMf 

NCI  ON 

IBUF< 1000) 

0002 

CALL 

INIT 

( IBUF .1000) 

0003 

CALI 

AIN  1 

(50.0. 700.0.0.-5) 

0004 

CALL 

lEX  r 

('BLOCK  BIAGKAM  ') 

C 

PEG  IN  BLOCK  1 

0005 

CALL 

AINI 

( 150.0.512.0.0.-5) 

0006 

CALL 

OECT 

(150.0.0.0) 

0007 

CALL 

OECT 

(0.0.100.0) 

0003 

CAl  1. 

OECl 

( -150.0.0.0) 

0009 

CALL 

OECI 

(0.0. -100.0) 

1‘ 

BEGIN  BLOCK  2 

0010 

CALL 

APNI 

( 400.0.625.0.0.-5) 

0011 

CAl  1 

OLCl 

(200.0.0.0) 

001? 

CALL 

Of  cr 

(0.0.25.0) 

0013 

CALL 

OEC  r 

(-200.0.0.0) 

00 1 4 

CALL 

OECT 

(0.0. -25.0) 

C 

BEGIN  BLOCK  3 

0015 

CALL 

APNI 

(400.0.575.0.0.-5) 

0016 

CALL 

OECT 

(200.0.0.0) 

001  7 

CALL 

OECT 

(0.0.25.0) 

0018 

CAl  L 

OECT 

(-200.0.0.0) 

0019 

CALL 

OECT 

(0.0. -25.0) 

C 

BEGIN  BLOCK  4 

0020 

CAl  1 

APNI 

(400.0.525.0.0.-5) 

0021 

CALL 

OECT 

(200.0.0.0) 

0022 

CALL 

OECT 

(0.0.25.0) 

0023 

CALL 

OECT 

(-200.0.0.0) 

0024 

CALL 

OECT 

(0.0. -25.0) 

i: 

BEGIN  Bl  OCK  5 

0025 

CALL 

APNT 

(400.0.475.0.0.-5) 

0026 

' 

CALI 

OEC  I 

(200.0.0.0) 

0027 

CALL 

OECT 

(0.0.25.0) 

0028 

CALL 

OEC  r 

(-200.0.0.0) 

002V 

CALL 

OECT 

(0.0. -25.0) 

c: 

BEGIN  BLOCK  6 

00  10 

CALL 

APNI 

( 700.0.512.0.0.-5) 

0031 

CALL 

OECT 

( 150.0.0.0) 

0032 

CALL 

OECT 

(0.0.100.0) 

0033 

CALL 

OECT 

(-150.0.0.0) 

0034 

CALL 

OECT 

(0.0.-100.0) 

r 

BKAW 

CONNECT  LINES 

0035 

CALL 

Af  NI 

(50.0.562.0.0.-5) 

0036 

CAL  1. 

OE  C T 

( 100.0.0.0) 

0037 

CAL  L 

OECT 

(150.0.0.0.0.-5) 

0038 

CAl  L 

OECl 

(50.0.0.0) 

003? 

CALL 

APNI 

(350.0.487.0.0.-5) 

00  40 

CALL 

I'LL  I 

(0.0. 150.0) 

00  4 1 

CALL 

OEC  I 

(50.0.0.0) 

0042 

( ALl 

APNI 

(350.0.587.0.0.-5) 

004  3 

CALL 

OECl 

(50.0.0.0) 

004  1 

CALL 

APN  I 

••350. 0.53.'. 0.0. -5) 

0045 

CALL 

01  C T 

(50.0.0.0) 

0046 

c:all 

APN  1 

(350.0.487.0.0.-5) 

0047 

CALL 

Ot  1 r 

(50.0.0.0) 
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OO-IO 

CALI 

APNT 

(600.0,487.0.0.-5) 

004V 

CAl  1. 

01.  C I 

(50.0.0.0) 

0000 

CALL 

OEC  I 

(0.0.150.0) 

0001 

CAl  L 

OI.CT 

( -50.0,0.0) 

000? 

CALI 

Al'NI 

(600.0.587.0.0,-5) 

OOOJ 

CALI 

OKCT 

(50.0,0.0) 

0054 

CAl.  L 

APNI 

(600.0,537.0,0.-5) 

0055 

CALI 

OF  CT 

(50.0.0.0) 

005A 

CAl  1 

Al'MT 

(650. 0,56?. 0.0. -5) 

005  7 

CAL  1. 

01  C I 

(50.0,0.0) 

o 

o 

CAl.  L 

01  CT 

(150.0,0.0.0.-5) 

005® 

CAl.  L 

OF  c r 

( 100.0,0.0) 

C 

1 AlO  L 

FiLOCLS 

0060 

CALI 

Al'NI 

(50.0,564.0,0.-5) 

00,',  1 

(.Al  1. 

1 1 XT 

('INPUT  ') 

(.'06? 

1 ALl 

AINT 

( 160.0,575.0.0,-5) 

('0^7 

CALL 

Tl  XT 

('PANIipASS  ') 

00(S4 

CAl  L 

Al'NT 

( 160.0,5?5.0,0,-5) 

OOA5 

CALI 

TLX  I 

( '1  IL lEP  ' ) 

0066 

CALI 

AI  N I 

(410. 0,6?7.0. 0.-5) 

0067 

CALL 

Tt  XT 

('COHERENT  HET  ') 

0068 

CAl  1 

Al'NT 

( 410.0,577.0,0,-5) 

006V 

CAL  1. 

TF.X  I 

('CCihe:rent  het  ') 

00/0 

CALI. 

Al'NT 

(41().0,5?7.0,0,-5) 

00  71 

CAL  L 

TEXT 

(' cunt  KENT  HET  ') 

007? 

CAl  L 

APNT 

(410.0.477.0,0,-5) 

00  7.7 

CAL  1. 

TEXT 

('CntllKENT  HET  ') 

(H>7  4 

CALL 

AF'NT 

( 710.0,575.0,0,-5) 

00  75 

CAL  1 

TF  XT 

( 'SAMt'LE  ' ) 

0(>76 

CAl  L 

AT  NT 

( 7 10. 0,550. 0,0, -5) 

00  7 7 

CAl  1. 

TEXT 

( ' ANH  ' ) 

00/8 

CALL 

Al  NT 

(710.0,525.0,0,-5) 

00  79 

CALI 

T 1 XT 

('HECISION  ') 

0080 

CAl  1 

APNT 

(860.0,564.0,0,-5) 

00!3  1 

CALI 

TEXT 

('OUIT'Ur  ') 

C 

L15I 

ASSUME T iUNS 

008? 

(Al  1 

AF'NT 

(50.0,400.0,0,-5) 

008  ^ 

f.AI  1 

Tl  X T 

( ' AGSDMI-'TTONS:  ') 

0084 

CAl  L 

TEXT 

( 1 , ' 1 . F CIIIK  PHASE  PSK  ( CFPSK  ) ' , 1 ) 

0085 

CALL 

II  X F 

('?.  MAXIMUM  LTMlHUnn  KECEIOER  ',1) 

0096 

CALL 

ri  XI 

('3.  AMUTIOE  UFIITL  GAUSS  I AN  NOISE  ',1 

'.  0.8  7 

1 Al  L 

11''! 

( 4.  NU  l\Mf  K-STMHlll  I N I F KF  EKLNCE  ',1) 

•.)08S 

CALL 

II  X r 

('■-.  MARK  IKOHAHII  tlY’O.S  ',!) 

008  V 

CAl  1 

II  X I 

( 6.  Sli'lNAI  TO  NOISE  KA I 1 0 MEASURE  Ii  AT 

♦ ' III  HAK'IU'AGr:  h [|.  ri-  K ' . 1 ) 

''OVO 

1 

F AVI 

( ' UF'SKRl  ' ) 

/>0V  1 

1-  NI' 

OUTPUT 
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000 1 

It  I MENS  I ON 

IBUF(IOOO) 

0002 

CAL  1. 

INI! 

< IBUPf 1000) 

0003 

CALL 

APNT 

<50.0r700.0»0»-5) 

0004 

CALL 

TEXT 

('BLOCK  BIAGRAM  ') 

C 

8EGIN  BLOCK  1 

000b 

CALL 

APNT 

(200.0F550.0»0f-5) 

0006 

CALL 

VECT 

(ISO.OtO.O) 

0007 

CALL 

VECT 

(O.OfIOO.O) 

0008 

CALL 

VECT 

(-ISO.OfO.O) 

0009 

CAl  L 

VECT 

(O.Of-lOO.O) 

C 

BEGIN  BLOCK  2 

0010 

CALL 

APNT 

(400. 0.550. 0f0»-5) 

001 1 

CALL 

VECT 

( 150.0.0.0) 

0012 

CALL 

VECT 

(0.0.100.0) 

0013 

CALL 

VECT 

(-150.0.0.0) 

0014 

CALL 

VECT 

(0.0. -100.0) 

C 

BEGIN  BLOCK  3 

0015 

CALL 

APNT 

(200.0.425,0.0.-5) 

0016 

CALL 

VECT 

(150.0.0.0) 

0017 

CALL 

VECT 

(0.0.100.0) 

0018 

CALL 

VECT 

(-150.0.0.0) 

0019 

CALL 

VECT 

(0.0. -100.0) 

C 

BEGIN  BLOCK  4 

0020 

CALL 

APNT 

(400.0.425.0.0.-5) 

0021 

CALL 

VECT 

( 150.0.0.0) 

0022 

CALL 

VECT 

(0.0.100.0) 

0023 

CALL 

VECT 

(-150.0.0,0) 

0024 

CALL 

VECT 

(0.0. -100.0) 

c 

BEGIN  BLOCK  S 

0025 

CALL 

APNT 

(600.0.425,0.0.-5) 

0026 

CALL 

VECT 

( 150.0.0.0) 

0027 

CALL 

VECT 

(0.0.225.0) 

0028 

CALL 

VECT 

(-150.0.0.0) 

0029 

CALL 

VECT 

(0.0.-225.0) 

c 

DRAU 

CONNECT  LINES 

0030 

CALL 

APNT 

(50.0.537.0.0.-5) 

0031 

CALL 

VECT 

(100. 0.0.0) 

0032 

CALL 

APNT 

(200,0.475,0.0.-5) 

0033 

CALL 

VECT 

(-50.0.0.0) 

0034 

CALL 

VECT 

(0.0.125.0) 

0035 

CALL 

VECT 

(50.0.0.0) 

0036 

CALL 

VECT 

(150.0.0,0.0.-5) 

0037 

CALL 

VECT 

O 

O 

O 

o 

0038 

CALL 

VECT 

( 150.0.0,0.0.-5) 

0039 

CALL 

VECT 

(50.0.0.0) 

0040 

CALL 

APNT 

(350,0.475.0.0.-5) 

0041 

CALL 

VECT 

(50.0.0.0) 

0042 

CALL 

VECT 

( 150,0.0.0.0.-5) 

0043 

CALL 

VECT 

( 50 .0.0.0) 

00  44 

CALL 

APNT 

(750.0.537,0.0.-5) 

0045 

CALL 

VEC  r 

( 100,0.0.0) 

t; 

LABtL 

. BLOCKS 

0046 

CALL 

APNT 

(50.0.539,0.0.-5) 

0047 

CALL 

TEXT 

('INPUT  ') 
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0048 

004V 

OOSO 

0031 

0032 

0033 
0054 
0053 
0036 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 
006V 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0031 
0082 

0083 

0084 

0085 


CALL 

APNT 

(210.0f62S.0 

fO 

-5) 

CALL 

TEXT 

('BANDPASS  ' 

) 

CALL 

APNT 

(210. Of  600.0 

fO 

-5) 

CALL 

TEXT 

('FILTER  ') 

CALL 

APNT 

(210.0f575.0 

fO 

-5) 

CALL 

TEXT 

( 'AT  Fl  ' ) 

CALL 

APNT 

(210.0f500.0 

fO 

-5) 

CALL 

TEXT 

('BANDPASS  ' 

) 

CALL 

APNT 

(210.0f475.0 

fO 

-3) 

CALL 

TEXT 

('FILTER  ') 

CALL 

APNT 

(210.0f 450.0f0 

-5) 

CALL 

TEXT 

( 'AT  F2  ' ) 

CALL 

APNT 

(410.0f62S.0 

fO 

-5) 

CALL 

TEXT 

('ENVELOPE  ' 

) 

CALL 

APNT 

(410.0f575.0 

fO 

-5) 

CALL 

TEXT 

('DETECTOR  ' 

) 

CALL 

APNT 

(410. Of  500.0 

fO 

-5) 

CALL 

TEXT 

('ENVELOPE  ' 

) 

CALL 

APNT 

(410. Of  430.0 

fO 

-5) 

CALL 

TEXT 

('DETECTOR  ' 

) 

CALL 

APNT 

(610.0f600.0 

fO 

-5) 

CALL 

TEXT 

('SAMPLE  ') 

CALL 

APNT 

(610.0f550.0 

fO 

-5) 

CALL 

TEXT 

( ' AND  ' ) 

CALL 

APNT 

(610.0fS00.0 

fO 

-5) 

CALL 

TEXT 

('  DECISION 

' ) 

CALL 

APNT 

(760.0fS39.0 

fO 

-5) 

CALL 

TEXT 

('OUTPUT  ') 

LIST 

i:all 

CALL 
CALL 
CALL 
CAl  L 
CA^L 
CALL 
CALL 


ASSUMPTIONS 

APNT  (S0.0>400.0r0t-S) 

('assumptions:  ') 


TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 


<l»'l.  BINARY  FSK  'fl) 

('2.  NON-COHERENT  detection  'fl) 

('3.  ADDITIVE  UNITE  GAUSSIAN  NOISE  'fl) 

('4.  NO  INTERSYMBOL  INTERFERENCE  'fl) 

('5.  NO  FILTER  CROSS  TALK  'fl) 

('6.  SIGNAL  TO  NOISE  RATIO  MEASURED  AT  OUTPUT 
UF  BANDPASS  FILTER  'fl) 


CALL  SAVE  ( 'FSKBl ' ) 
END 


B-18 


KOKTRAN  IV/ 


V01C-03A 


UED  04-AUG-76  13138:08 


PAGE  001 


0001 

MMENSION 

IBUFdOOO) 

000? 

CALI 

INI  r 

( IBUPflOOO) 

0003 

CAt  L 

APNT 

(50.0t700.0f0p-5) 

0004 

CALL 

TEXT 

('BLOCK  DIAGRAM  ') 

C 

BEGIN  BLOCK  1 

0005 

CALL 

APNT 

( 150.0»550.0p0»-5) 

0006 

CALL 

VECT 

( 150.0f0.0) 

0007 

CALL 

VECT 

(O.OtlOO.O) 

0008 

CALL 

VECT 

(-150.0.0,0) 

0009 

CALL 

VECT 

(0.0.-100,0) 

C 

BEGIN  BLOCK  2 

0010 

CALL 

APNT 

( 150.0.425,0.0.-5) 

0011 

CALL 

VECT 

( 150,0.0,0) 

001? 

CALL 

VECT 

(0,0.100,0) 

0013 

CALL 

VECT 

(-150,0.0,0) 

0014 

CALL 

OECT 

(0,0.-100,0) 

C 

BEGIN  BLOCK  3 

0015 

CALL 

APNT 

(350,0.425,0.0.-5) 

0016 

CALL 

OLCT 

( 150,0.0.0) 

0017 

CALL 

VECT 

(0,0.225.0) 

0018 

CALL 

VECT 

(-150,0.0,0) 

0019 

CALL 

VECT 

(0,0.-225,0) 

C 

BEGIN  BLOCK  4 

00?0 

CALL 

APNT 

(550,0.600,0.0.-5) 

00?  1 

CALL 

VECT 

( 150,0.0,0) 

002? 

CALL 

VECT 

(0,0.50,0) 

0023 

CALL 

VECT 

(-150,0.0,0) 

0024 

CALL 

VECT 

(0,0. -50.0) 

C 

BEGIN  BLOCK  5 

0025 

CALL 

APNT 

(550,0,500,0.0.-5) 

0026 

CALL 

VECT 

( 150,0.0.0) 

0027 

CALI. 

VECT 

(0,0.75,0) 

0028 

CALL 

VECT 

(-150,0.0,0) 

0029 

CALL 

VECT 

(0,0. -75.0) 

C 

BEGIN  BLOCK  6 

0030 

CALL 

APNT 

(550,0.425,0.0.-5) 

0031 

CALL 

VECT 

( 150,0.0,0) 

0032 

CALL 

VECT 

(0,0.50,0) 

0033 

CALL 

VECT 

(-150,0.0,0) 

0034 

CALL 

VECT 

(0,0. -50.0) 

C 

BEGIN  BLOCK  7 

0035 

CALL 

APNT 

(750,0.475,0.0.-5) 

0036 

CALL 

VECT 

( 150,0.0,0) 

0037 

CALL 

VECT 

(0,0.125,0) 

0038 

CALL 

VECT 

(-150,0.0,0) 

0039 

i:all 

VECT 

(0,0.-125,0) 

C 

I'RAU 

CONNECT  LINES 

0040 

CALL 

APNT 

(25,0.537,0.0.-5) 

0041 

CALL 

VECT 

( 100,0.0.0) 

004? 

CALL 

APNT 

( 150,0.475,0.0.-5) 

0043 

CALL 

VECT 

(-25,0.0,0) 

0044 

CALL 

VECT 

(0,0,125,0) 

0045 

CALL 

VECT 

(25,0.0,0) 

0046 

CALL 

APNT 

(300,0.600,0.0.-5) 

1 

I > 


0 
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00A7 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
00/8 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 
009/ 
0098 


CALL  VECT  (50.0t0.0) 

CALL  APNT  <300.0f 475.0*0f-5) 

CALL  VECT  <50.0.0.0) 

CALL  AFNT  (500.0.625.0.0.-5) 

CALL  VECT  (50.0.0.0) 

CALL  APNT  (500.0.450.0.0.-5) 

CALL  VECT  (50.0.0.0) 

CALL  APNT  (625.0.475.0.0.-5) 

CALL  VECT  (0.0.25.0) 

CALL  VECT  <0.0. 75. 0.0. -5) 

CALL  VECT  (0.0.25.0) 

CALL  APNT  (700.0.625.0.0.-5) 

CALL  VECT  (125.0.0.0) 

CALL  VECT  <0.0. -25.0) 

CALI  VECT  <0.0.-125. 0.0. -5) 

CALL  VECT  (0.0. -25.0) 

CALL  VECT  (-125.0.0.0) 

CALL  APNT  (900.0.537,0.0.-5) 

CALL  VECT  (100.0.0.0) 

LA8EL  BLOCKS 

CALL  APNT  (25.0.539.0.0.-5) 

CALL  TEXT  ('INPUT  ') 

CALL  APNT  (160.0.625.0.0.-5) 

CALL  TEXT  ('MATCHED  ') 

CALL  APNT  (160.0.600.0.0.-5) 

CALL  TEXT  ('FILTER  ') 

CALL  APNT  (160.0.575.0.0.-5) 

CALL  TEXT  ('AT  FI 

CALL  APNT  (160.0.500.0.0.-5) 

CALL  TEXT  ('MATCHED  ') 

CALL  APNT  (160,0.475.0.0.-5) 

CALL  TEXT  ('FILTER  ') 

CALL  APNT  (160.0.450,0.0.-5) 

CALL  TEXT  ('AT  F2  ') 

CALL  APNT  (360.0.537.0.0.-5) 

CALL  TEXT  ('SAMPLER  ') 

CALL  APNT  (560.0.610.0.0.-5) 

CALL  TEXT  ('SUM  ') 

CALL  APNT  (560.0.540.0.0.-5) 

CALL  TEXT  ('THRESHOLD  ') 

CALL  APNT  (560,0.435.0.0.-5) 

CALL  TEXT  ('SUM  ') 

CALL  APNT  (760.0.537.0.0.-5) 

CALL  TEXT  ('DECISION  ') 

CALL  APNT  (900.0.539.0.0.-5) 

CALL  TEXT  ('OUTPUT  ') 

LIST  ASSUMPTIONS 

CALL  APNJ  (50.0.400.0.0.-5) 

CALL  Tf XT  ('assumptions:  ') 

CALL  TEXT  (l.'l.  BINARY  FSK  '.!) 

LALL  TEXT  ('2.  MATCHED  FILTER  DETECTION  '.1) 

CALL  TEXT  ('3.  ADDITIVE  UHITE  GAUSSIAN  NOISE  '.1) 
CALL  TEXT  ('4.  NU  INIERSYMBOL  INTERFERENCE  '.1) 
CALL  TEXT  ('5.  NO  FILTER  CROSSTALK  '.1) 
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0099  CALL  TEXT  <'6,  ENERGY  CONTRAST  RATIO  MEASURED  AT  OUTPUT  'r 

* ' OF  MATCHED  FILTER  ') 

0100  CALL  SAVE  ('FSKB2') 

0101  END 


fORTRAN 

IV 

V01C-03A  WED  04-AUG-76 

0001 

DIMENSION 

IDUE  (1000) 

0002 

CALL 

INIT 

(IBUFrlOOO) 

0003 

call 

BTAT< 

-1) 

OOOA 

DO  10  I-lf6 

0005 

YP*10.0*»(I-1) 

0006 

DO  2C 

1 J»1 

9 

0007 

Y^FL  OAT  (.■)*¥? 

0008 

Y-ALCIGIO(Y) 

oooy 

Y=100.0*Y+100.0 

0010 

CALL 

APNT 

<300.0»Y»0r-3) 

0011 

ir<  J. 

NE.l) 

GO  TO  99 

0013 

CALL 

VECT 

(400.0r0.0> 

00  M 

GO  TO  100 

0015 

99 

CONTINUE 

0016 

CALL 

VECT 

(lO.OrO.O) 

0017 

100 

CONTINUE 

0018 

20 

CONTINUE 

OOIV 

10 

CONTINUE 

0020 

CALL 

APNT 

(300.0t700,0»0»-3) 

0021 

CALL 

VECT 

(400.0t0.0) 

0022 

XVAL'= 

=300.0 

1 

0023 

DO  30  I=»lf 

4 

0024 

CALL 

APNT 

(XVALrl00.0>0»-3) 

0025 

CALL 

VECT 

(0.0f600.0> 

0026 

DO  40  J=l» 

4 

0027 

XWAL* 

'XVAL  + 

20.0 

0028 

CALL 

APNT 

<XVAL»100.0»0»-3) 

0029 

CALL 

VECT 

(O.OtlO.O) 

0030 

40 

CONTINUE 

0031 

XVAL" 

'XVAL+20.0 

0032 

30 

CONTINUE 

0033 

CALL 

APNT 

(700.0»100.0f0r-3> 

0034 

CALL 

VECT 

(0.0*600.0) 

0035 

CALL 

APNT 

(210.0»700.0»0»-3) 

0036 

CALL 

TEXT 

('lOE+0  ') 

0037 

CALL 

APNT 

(210. 0*600. OrO»-3) 

0038 

CALL 

TEXT 

('lOE-1  ') 

0039 

CALL 

APNT 

(210. 0*500. 0*0*-3) 

0040 

CALL 

TEXT 

('lOE-2  ') 

0041 

CALL 

APNT 

(210. 0*400. 0*0*-3) 

0042 

CALL 

TEXT 

('lOE-3  ') 

0043 

CALL 

APNT 

(210. 0*300. 0*0*-3) 

0044 

CALL 

TEXT 

('lOE-4  ') 

0045 

CALL 

APNT 

(210. 0*200. 0*0*-3) 

C046 

CALL 

TEXT 

('lOE-5  ') 

004/ 

CALL 

APNT 

(210. 0*100. 0*0*-3) 

0048 

CALL 

TEXT 

('lOE-6  ') 

0049 

CALL 

APNT 

(300.0* 75.0*0* -3) 

0050 

CALL 

TEXT 

('-10  ' ) 

0051 

CALL 

APNT 

(400. 0*75. 0*0*-3> 

0052 

CALL 

TEXT 

( '0  ' ) 

0053 

CALL 

APNT 

(500. 0*75. 0*0*-3) 

0054 

CALL 

TEXT 

( '10  ') 

0055 

CALL 

APNT 

(600. 0*75. 0*0*-3) 

PAGE  001 
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0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 
0069 


CALL  TEXT  <'20  ') 

CALL  APNT  (700.0r75.0»0F-3) 

CALL  TEXT  ('30  ') 

CALL  APNT  <320.0»50.0r0f-3) 

CALL  TEXT  ('SIGNAL  TO  NOISE  RATIO  (DB) 
CALL  APNT  <25.0»375.0»0r-3> 

CALL  TEXT  ('PROBABILITY  ') 

CALL  APNT  <25.0f350.0»0t-3> 

CALL  TEXT  ('OF  ') 

CALL  APNT  <25.0F325.0»0f-3> 

CALL  TEXT  ('ERROR  ') 

CALL  SAVE  ('EGRID') 

STOP 

END 
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F-AGE  001 


0001 

HIMLNSION 

IDUF  (1000) 

0002 

CALL 

INIT 

(IBUF.IOOO) 

0003 

CALL 

STAT( 

-1 ) 

0004 

no  10  1=1. 

6 

0005 

YF=10.0**<I-1) 

0006 

DO  2C 

J-1. 

9 

0007 

Y=FLOAT< J)*YP 

0008 

Y=AL0G10(Y) 

0009 

Y=100.0*Y+100.0 

0010 

CALL 

APNT 

(300. O.Y. 0.-3) 

0011 

1F<  J. 

NE.  1 ) 

GO  TO  99 

0013 

CALL 

VECT 

(400.0.0.0) 

0014 

GO  TO  100 

0015 

99 

CONTINUE 

0016 

CALL 

VECT 

(12.0.0.0) 

0017 

100 

CONTINUE 

0018 

20 

CONTINUE 

0019 

10 

CONTINUE 

0020 

CALL 

APNT 

(300.0.700.0.0.-3) 

0021 

CALL 

VECT 

(400.0.0.0) 

0022 

XVAL  = 

300.0 

0023 

DO  30  1=1. 

4 

0024 

CALL 

APNT 

(XVAL. 100.0.0.-3) 

0025 

CALL 

VECT 

(C. 0.600.0) 

0026 

DO  40  J=l. 

4 

0027 

XVAL  = 

XVAL  + 

20.0 

0028 

CALC 

APNT 

(XVAL.100.0.0.-3) 

0029 

CALL 

VECT 

(0.0.10.0) 

0030 

40 

CONTINUE 

0031 

XVAL=XVAL+20.0 

0032 

30 

CONTINUE 

0033 

CALL 

APNT 

(700.0.100.0.0.-3) 

0034 

CALL 

VECT 

(0.0.600.0) 

0035 

CALL 

APNT 

(210.0.700.0.0.-3) 

0036 

CALL 

TEXT 

('lOE+0  ') 

0037 

CALL 

APNT 

(210.0.600.0.0.-3) 

0038 

CALL 

TEXT 

('lOE-1  ') 

0039 

CALL 

APNT 

(210,0.500.0.0.-3) 

0040 

CALL 

TEXT 

('lOE-2  ') 

0041 

CALL 

APNT 

(210,0.400,0.0.-3) 

0042 

CALL 

TEXT 

('lOE-3  ') 

0043 

CALL 

APNT 

(210.0.300,0.0.-3) 

0044 

CALL 

TEXT 

('lOE-4  ') 

0015 

CALL 

APNT 

(210.0.200,0.0.-3) 

0046 

CALL 

TEXT 

('lOE-5  ') 

0047 

CALL 

APNT 

(210.0.100,0.0.-3) 

0048 

CALL 

TEXT 

('lOE-6  ') 

0049 

CALI 

APNT 

(300.0.75.0.0.-3) 

0050 

CALL 

TEXT 

('-10  ' ) 

00  M 

CALL 

APNT 

(400,0.75,0.0.-3) 

0052 

CALL 

TEXT 

( '0  ' ) 

0053 

CALL 

APNT 

(500,0.75,0.0.-3) 

0054 

CALL 

TEXT 

( '10  ' ) 

0055 

CALL 

APNT 

(600.0.75.0.0.-3) 
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0056 

CALL 

TEXT 

<'20  ') 

0057 

CALL 

APNT 

<700.0f 75.0f0»-3) 

0058 

CALL 

TEXT 

( '30  ' ) 

0059 

CALL 

APNT 

(320.0t50.0r0»-3) 

0060 

CALL 

TEXT 

{'ENERGY  CONTRAST 

0061 

CALL 

APNT 

<25.0»375.0»0f-3) 

0062 

CALL 

TEXT 

( 'PRODABILITY  ') 

0063 

CALL 

APNT 

<25.0f 350.0f0f-3) 

0064 

CALL 

TEXT 

< ' OP  ' ) 

0065 

CALL 

APNT 

<25.0r325.0F0r-3) 

0066 

CALL 

TEXT 

( ' ERROR  ' ) 

0067 

CALL 

SAVE 

< 'EGRID2' ) 

0068 

STOP 

0069 

END 

I 

» 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
004  7 

0048 

0049 

0050 

0051 

0052 

0053 


DIMENSION  A<8) F IBUF( 1000) 

CALL  1NIT( IBUFf 1000) 

CALL  STAT<-1) 

DO  30  1^1 F 8 

30  A<I)=100.*AL0G10(FL0AT<:+1)) 

CALL  APNTCO. fO. fOf-5) 

DO  10  I=1f5 
X-200.+( I-l )*150. 

CALI  APNT(Xf100. fOf-5) 

CAL..  LVECKO.  f600.  ) 

10  CALL  RD0T(0. f-600. fOf-5) 

DO  20  1=1 F 7 
X=100.+( I-l )*100. 

CALL  APNT (200, fXfOf-5) 

CALL  LVECT(600. fO. ) 

CALL  RD0T(-600. fO. fOf-5) 

IF(I.Ea.7)  GO  TO  20 
DO  15  J=1f8 

CALL  APNT(200. fX+A< J) fOf-5) 

15  CALL  VECTC 10. fO. ) 

20  CONTINUE 

CALL  APNT(200. f75. fOf-5) 

CALL  TEXT('-IO') 

CALL  APNT(335. f75. fOf-5) 

CALL  TEXT('  O') 

CALL  APNT(500. f75. fOf-5) 

CALL  TEXT('IO') 

CALL  APNT(650. f75. fOf-5) 

CALL  TEXT< '20' ) 

CALI.  APNT(800.  f75.  fOf-5) 

CALL  TEXT('30') 

CALL  APNTCIOO. f50. fOf-5) 

CALL  TEXT! 'SIGNAL  TO  NOISE  RATIO  ( DB  )') 
CALL  APNTdOO.  f700.  fOf-5) 

CALL  TEXT( ' lOE-0' ) 

CALL  APNT( 100. f600. fOf-5) 

CALL  TEXT( 'lOE-1' ) 

CALL  APNT< 100. f500. fOf-5) 

CALL  TEXT( 'lOE-2' ) 

CALL  APNT( 100. f400. fOf-5) 

CALL  TLXT < ' lOE-3' ) 

CAI  L APNT< 100. f300. fOf-5) 

CALL  TEXT < ' lOE-4' ) 

CALL  APNT < 100. f200. fOf-5) 

CALL  TEXT< ' lOE-5' ) 

CALL  APNT< 100. F 100. fOf-5) 

CALL  TEXT( ' lOE-6' ) 

CALL  AfNTlO. f350. fOf-5) 

CALL  ILXK'PROB.  OF  ' f 1 f ' ERROR ' ) 

CALL  SAVE< 'EGRIDl ' ) 

STOP 

END 
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F-8GE  001 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
004^ 

0048 

0049 

0050 

0051 

0052 

0053 


HIMENSION  A(8).IBUF<1000) 

CALL  INIT(I8UF- rlOOO) 

CALL  STAT(-l) 

DC)  30  1 = 1.8 

30  A(I)=100.*AL0G10<FL0AT(I+l)) 

CALL  APNCCO. .0. »0.-5) 
no  10  1=1.5 
X=?00.+< I-l)*150. 

CALI  AFNKX.  100.  .0.-5) 

CALL  LVECKO.  .600.  ) 

10  CALL  KDOTCO. »-600. .0.-5) 
no  20  1=1.7 
X=100.+< I-l )*100. 

CALL  AFNT ( 200 . . X . 0 . -5 ) 

CALL  LVECT(600. .0. ) 

CALL  ROOT ( -600. .0. .0.-5) 

IFd.EO.7)  GO  TO  20 
no  15  J=1.8 

CALL  AFNT (200. .X+ACJ) .0.-5) 

15  CALL  VECT( 10. .0. ) 

20  CONTINUE 

CALL  AFNT  < 200 . . 75 . . 0 . -5 ) 

CALL  TEXT( '-10' ) 

CALL  AFNT <335. .75. .0.-5) 

CALL  TEXT('  O') 

CALL  APNT(50vy.  .75.  .0.-5) 

CALL  TEXT('IO') 

CALL  APNT<650. .75. fOf-5) 

CALL  TEXT( '20' ) 

CALL  APNT(800. .75. .0.-5) 

CALL  TEXT ('30') 

CALL  APNT(300. .50. .0.-5) 

CALL  TEXT ('ENERGY  CONTRAST  RATIO  ( DB  )') 
CALL  APNTdOO.  .700.  .0.-5) 

CALL  TEXT( ' lOE-0' ) 

CALL  APNTdOO.  .600.  .0.-5) 

CALL  TEXT('lOE-l') 

CALL  APNTdOO.  .500.  .0.-5) 

CALL  TEXT ( ' lOE-2' ) 

CALL  APNT< 100. .400. .0.-5) 

CALL  TEXT< ' lOE-3' ) 

CALL  APNT< 100. .300. .0.-5) 

CALL  TEXT ( ' lOE-4' ) 

CALL  AF  NT  ( lO"'.  .200.  .0.-5) 

CALL  TEXT( ' lOE-5' ) 

CALL  APNT< 100. . 100. .0.-5) 

CALL  TEXT( ' lOE-6' ) 

CALL  AFNT <0. .350. .0.-5) 

CALL  TEXT('PROB.  OF '. 1 .' ERROR ' ) 

CALL  SAVE( 'EGRin3' ) 

STOP 

END 
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0001 

niMtNSION 

AMPdOD.IBUFdOOO) 

0002 

CALL 

INIT 

(IDUFdOOO) 

0003 

XVAL 

= 100. 

0 

0004 

YVAL 

= 100. 

0 

0005 

no  2 

0 J=1 

rl6 

0006 

CALL 

AFNT 

dOO.Of  YVALfO.-3) 

0007 

CALL 

VECT 

(SOO.OfO.O) 

0008 

YVAL 

=YVAL+40.0 

0009 

20 

CONTINUE 

0010 

DO  30  K=1 

f 11 

0011 

CALL 

AF'NT 

(XVAL. 100.0*0.-3) 

0012 

CALL 

VtCT 

(0.0.600.0) 

0013 

XVAL 

=XVAL+50.0 

0014 

30 

CONTINUE 

0015 

CALL 

AFNT 

( 110.0.50.0.0.-5) 

0016 

CALI 

TEXT 

('NORMALIZED  FREQUENCY 

0017 

CALL 

AFNT 

( 10.0.350.0.0.-5) 

0018 

CALL 

TEXT 

('MAG(H)  ') 

0019 

CALL 

AF-NT 

( 100.0.75.0.0.-5) 

0020 

CALL 

TEXT 

( '0  ' ) 

0021 

CALL 

AFNI 

(200.0.75.0.0.-5) 

0022 

CALL 

TEXT 

( '1  ' ) 

0023 

CALL 

APNT 

(300.0.75.0.0.-5) 

0024 

CALL 

TEXT 

( '2  ' ) 

0025 

CALL 

AFNT 

(400.0.75.0.0.-5) 

0026 

CALL 

TEXT 

( '3  ' ) 

0027 

CALL 

APNT 

(500.0.75.0.0.-5) 

0028 

CALL 

TEXT 

( '4  ' ) 

0029 

CALL 

APNT 

(600.0.75.0.0.-5) 

0030 

CALL 

TEXT 

( '5  ' ) 

0031 

CALL 

APNT 

(40.0. 100.0.0.-5) 

0032 

CALL 

TEXT 

( '0.0  ' ) 

0033 

CALL 

AFNT 

(40.0.300.0.0.-5) 

0034 

CALL 

TEXT 

( '0.5  ' ) 

0035 

CALL 

APNT 

(40.0.500.0.0.-5) 

0036 

CALL 

TEXT 

('1.0  ') 

0037 

CALL 

APNT 

(40.0.700.0.0.-5) 

0038 

CALL 

TEXT 

( '1.5  ' ) 

0039 

CALL 

SAVE 

( 'GRID' ) 

0040 

END 
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0001 

DIMENSION  IDUF(50) 

0002 

CALL 

TNIT  (IDUF»50) 

0003 

CALL 

SUDP(IO) 

0004 

CALL 

AFNI  (900.0»300.0»1» 

-5) 

000^ 

CALL 

TEXT  ('YES  ') 

0006 

CALL 

ESUD 

0007 

CALL 

SUDP(ll) 

0008 

CALL 

APNT  <900.0»200.0»1» 

-5) 

0009 

CALL 

TEXT  ('NO  ') 

0010 

CALL 

ESUD 

0011 

CALL 

SAVE  ('R3YN0') 

0012 

END 
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0001 

0002 

0003 

0004 

0005 

0006 


DIMENSION  IBUF<50) 

CALL  INIT  <IDUF»50) 

CALL  APNl  <449.0»385.0»0r-5) 
CALL  TEXT  ('*WORKING*  ') 

CALL  SAVE  ('R3UAIT') 

END 


I 
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0001 

DIMENSION  IBUF(500) 

0002 

CALL 

INIT< IBUF.500) 

0003 

CALL 

SUBP(l) 

0004 

CALL 

APNT  (100.0f600.0rlt-6) 

0005 

CALL 

TEXT  ('ASK  (NON-COHERENT)  ') 

0006 

CALL 

ESUD 

0007 

CALL 

Sl)EiP<2) 

0008 

CALL 

APNT  ( 100.0»500.0f 1 »-6) 

0009 

CALL 

TEXT  ('ASK  (COHERENT)  ') 

0010 

CALL 

ESIIB 

0011 

CALL 

SUDP(3) 

0012 

CALL 

APNT  ( 100.0»400.0» 1 f-6) 

0013 

CALL 

TEXT  ('ASK  (CORRELATION  RECEIVER) 

0014 

CALL 

ESUB 

0015 

CALL 

SUBP(4) 

0016 

CALI 

APNT  (100.0. 300. 0f1»-6) 

0017 

CALL 

TEXT  ('PSK  (COHERENT)  ') 

0018 

CALL 

ESUB 

OOlV 

CALL 

SUBP(5) 

0020 

CALL 

APNT  (100.0.200.0.1.-6) 

0021 

CALL 

TEXT  ('PSK  (CORRELATION  RECEIVER) 

0022 

CALL 

ESUB 

0023 

CALL 

SUBP(6) 

0024 

CALL 

APNT  (550.0.600.0.1.-6) 

0025 

CALL 

TEXT  ('DPSK  ') 

0026 

CALL 

ESUB 

0027 

CALL 

SUBP(7) 

0028 

CALL 

APNT  (550.0.500.0.1.-6) 

0029 

CALL 

TEXT  ('QPSK  ') 

0030 

CALL 

ESUB 

0031 

CALL 

SUBP(8) 

0032 

CALL 

APNT  (550.0.400.0.1.-6) 

0033 

CALL 

TEXT  ('FSK  (NON-COHERENT)  ') 

0034 

CALL 

ESUB 

0035 

CALL 

SUBP(9) 

0036 

CALL 

APNT  (550.0.300.0.1.-6) 

0037 

CALL 

TEXT  ('FSK  (MATCHED  FILTER)  ') 

0038 

CALL 

ESUB 

0039 

CALL 

SAVE  ('SLST') 

0040 

STOP 

0041 

END 
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DOCUMENTATION  FOR  PROGRAM  MIDSYS 

MIDSYS  is  a program  consisting  of  a subset  of  the  MIDACS  software. 
MIDSYS  requires  less  main  memory  than  MIDACS,  thus  allowing  room  for  the 
GT  scroller  feature  to  be  used  when  using  a machine  with  only  16K  of  main 
memory.  The  main  program  Is  a copy  of  subroutine  SYSAST  described  In 
Appendix  A.  The  subroutines  are  also  copies  of  subroutines  with  the  same 
names  In  Appendix  A.  The  main  program  Is  In  File  SYSPRO.FOR  on  the  DECpack. 
The  save  module  Is  named  MIDSYS. SAV. 
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0001 

r-KOGRAM  MAIN 

OOOJ 

COMMON  /CHOP/ I PUP (100) 

0003 

C0MM0N/CYC/YC(40) 
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APPENDIX  D 

SUBROUTINE  CALLING  HIERARCHY  FOR 
MIDACS  DEMONSTRATION  SOFTWARE 


Figure  D-1.  Subroutine  Celling  Hierarchy  for  MIOACS  Demonstration  Software. 
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MISSION 
of 

Rome  Air  Development  Center 


RADC  plmnm  and  conducts  rmsearch,  exploratory  and  advanced 
devmlopemnt  programs  in  cosssand,  control,  and  cosnamications 
(C^)  activities,  and  in  the  areas  of  informatior,  sciences 
and  intelligence.  The  principal  technical  mission  areas 
are  cosmunications , electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences,  sdcromave 
physics  and  electronic  reliability,  maintainability  and 
compatibility . 
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